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~1B/040<CR> 

@ll@133@12gatau@1118912niohi<CR> 

HARE 009tokidoki910 KUMORI<CR> 
@14@01Kyouwa tomodachino hanashini detek 
ita”0h!MZ"toiu kotobaga yoku wakaranakat 
tanode jishowo hiite mimashita. @03Eigod 
ato omottanode eiwa-jitenwo shirabetanod 
esuga notteimasendeshita. @02Shikatanaku 

konomae kattabakarino saishin-yougo-eie 
i-jiten toiunode shirabetara yatto mitau 
karimashita. Sorenishitemo korehodo G04s 
ubaraahii zasshi@05 dattanante chittomo 
8hirimaaendeshita. Sekkaku shirabetanode 

waaurenaiyouni nukigakiahiteokimaahita. 
<CR> 

@21<CR> 

eil«130h!MZei2«14 [o A 08»u-e~08'mzed/0^08 
*u-e A 08'mzi:]<CR> 

n. An 608amazing910, @09wonderful®10 f u 
seful, intellectual and @13@06non-protec 
ted@14@07 magazine for personal computin 
g. 01iei3EspeciallyG12@14 for users of t 
he 004SHARP005* a personal computers name 
d 003MZ-002 or 003CZ-002. First publishe 
d in 013@06may 1983014007 by SOFT BANK c 
orp. All readers and editors of this mag 
azine, 011013although012014, very 004wid 
e005 and 004progressive005 view, so ever 
y lover for personal computing, 004006ev 
en if005007 he or she possesses a 013003 
PC-,FM,HC002014 and so on, can experienc 
e a great 003excitement002 in reading th 
is book.<CR> 

int. An exclamation expressing surprise 

or 011013006sudden012014007 emotion by 
hearing the 013famous014 name, MZ-.<CR> 

<CR> «RETURN ^ ^ W t „ 


H12 tW&M (CZ-8PK3, m^77%) 


3gatsul Snichi 
HARE tokidoki KUMORI 

Kyouwa tomodachino hanashini detekita”CXi!MZ’ , toiu 
kotobaga yoku wakaranakat tanode jishowo hiite m 
imashita. Bigodato oiottanode eiwa-jitenwo shirabetanodesuga not 
teiiaBendeshita. Shikatanaku konomae kattabakar 
ino saishin-yougo-eiei-jiten toiunode sh 
irabetara yatto mitsukarimashita. Soreni 
shitemo korehodo subarashii zasshi datta 
nante chittomo shirimasendeshita. Sekkak 
u shirabetanode wasurenaiyouni nukigakis 
hiteokimashita. 


Oh ! MZ [du-&mzed/6u-emzi : ] 
n. An amazing, wonderful, useful, intel 
lectual and non-protected magazine for p 
ersonal computing. Especially 
for users of the SHARP’S personal comput 
ers named HZ- or CZ-. First published in m 
ay 1983 by SOFT BANK corp. All readers a 
nd editors of this magazine, 
ugh, very wide and progressive view, 
so every lover for personal computing, e 
ven if he or she possesses a PC-,FI,SC and 
so on, can experience a great exciteient in 
reading this book. 

int. An exclamation expressing surprise 
or s udden emotion by hearing the 
famous name, MZ-. 
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REM ********************************************************************** 
REM ELECTORIC TYPEWRITER ( OH!MZ 1986.4 ) COPYRIGHT BY KEIZO ASANO 
REM ********************************************************************** 
WIDTH 40 

BS=160 :REM BUFFER SIZE 

DIM X$(BS+1):F0R 1=0 TO 161:X$(I)=” 

RI$=CHR$(28) 

LE$=CHR$(29) 

DL$=CHR$(8) 

IN$=CHR$(18) 

CR$="B"+LE$ 

EN$=CHR$(12) 

ME$="@" 

HE$ 


"INEXT :REM SET BUFFER ARIA 

:REM CURSOR RIGHT 
:REM CURSOR LEFT 
:REM BACK SPACE 
IREM INSERT 
:REM CURSOR 

:REM ESC TO PROGRAM END 
IREM PREFIX TO A MENU CODE 

IREM PREFIX TO A CONTROL CODE(HEXADECIMAL) 


IREM PREFIX TO A CONTROL CODE(DECIMAL) 

IREM PREFIX TO CONVERT HEXADECIMAL TO DECIMAL 


DE$ = "*" 

HC$="&H" 

REM 

REM-<< DEFINE CONTROL CODE FOR PRINTER >> 

CO=23 

DIM CO$(CO,l) 

CO$ ( 

CO$( 

CO$( 

CO$( 

CO$( 

CO$( 

co$ ( 

CO$( 

CO$( 


; i» 

,0) = 

:CO$ ( 

2 i 

, 0 ) = "a* 411" 

: CO$ ( 

: 3 1 

, 0) = "3>r*>X" 

:CO$ ( 

4 , 

,0)=”2j4*a^^f- ON" 

:CO$ ( 

: 5, 

, 0 ) = "2^* a77f- OFF" 

:CO$ ( 

6 i 

,0)="7ON" 

:CO$ ( 

: 7, 

,0)="7OFF" 

:CO$ ( 

8, 

,0)="X-A*-X*V7* »• ON’ 

’ :CO$( 

: 9, 

,0)="*7- X7V7* V ON" 

:CO$ ( 

10, 

,0) = "X*';7 # t OFF" 

:CO$ ( 

: ii ■ 

,0)="*2**4 ON" 

:CO$ ( 

12, 

4 OFF" 

:CO$ ( 

: i3, 

,0)="* B 7fB7 ON" 

:CO$ ( 

14, 

,0) = "tB7fB»> OFF" 

:CO$ ( 

: is , 

, 0 ON" 

:CO$ ( 

16, 

,0)="a>** OFF" 

:CO$ ( 

: i7, 

, Q) = ,, tvf t" 

:CO$ ( 

18, 

,0)="****" 

:CO$ ( 

:i9, 

,0)="l/6 4's+" 

:CO$ ( 

20, 

,0)="l/8 4's*" 

:CO$(: 

: 21 

,Q) = "*4*' b7" 

:CO$(: 

: 22, 

,0)="iHV -i'* " 

:CO$(: 

: 23 

,0)="**>t*" 

:CO$ ( 


-<< FORMAT DISPLAY >> 


TYPEWRITER 


OH! MZ 


II " 


-<< COMMAND MENU >> 


REM 

CURSOR 0,01 PRINT 
CURSOR 0,1:PRINT 
CURSOR 0,3 I PRINT 
CURSOR 0,4 I PRINT 
CURSOR 0,5:PRINT 

REM- 

FOR 1=1 TO CO 

PX=2+20*INT(I/18):PY=6+I-INT(1/18)*18+INT(1/18) 

CURSOR PX,PY:PRINT ME$+RIGHT$(STR$(100+1),2); 

CURSOR PX+4,PY:PRINT CO$(1,0); 

NEXT 

REM-<< KEY SCAN >> 

PC=1:PM=0:X=2 

CURSOR 18,4:PRINT RIGHT$(” ”+STR$(PC),3); 

CURSOR X,2:PRINT CR$; 

A$=INKEY$ 

THEN 1760 
THEN 1940 
THEN 2000 
THEN 2060 
THEN 2160 
THEN 2280 
THEN 2830 
THEN 1760 


IF A$ = "" 

IF A$=RI$ 

IF A$=LE$ 

IF A$=IN$ 

IF A$=DL$ 

IF A$=CHR$(13) 
IF A$=EN$ 

IF ASC(A$)<32 


IF X=37 THEN.CURSOR 3,2:PRINT DL$:X=36 
CURSOR X,2:X=X+1 
PRINT A$+CR$; 

X$(PC)=A$ 

IF PC>PM THEN PM=PC 
PC=PC+1 

IF PC>BS THEN 2360 
GOTO 1740 

REM- 

IF PC=PM+1 THEN 1740 


-<< CURSOR RIGHT >> 
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IF X=37 THEN CURSOR 3,2‘.PRINT DL$:X=36 
CURSOR X,2:PRINT X$(PC); 

X=X+1:PC=PC+1 
GOTO 1740 

REM-<< CURSOR LEFT >> 

IF PC=1 THEN 1740 

IF X=2 THEN CURSOR 38,2:PRINT DL$:X=3:CURSOR X,2:PRINT IN$; 

PRINT X$(PC); 

X=X-1:PC=PC-1 
GOTO 1740 

REM-<< INSERT >> 

PRINT X$(PC); 

CURSOR X,2:PRINT IN$ 

CURSOR 38,2‘.PRINT " 

PM=PM+1:IF PM>BS THEN PM=BS 
FOR I=PM TO PC+1 STEP -1 
X$(I)=X$(I-l) 

NEXT 

X$(PC)=" ” 

GOTO 1740 

REM-<< DELETE >> 

IF PM=0 THEN 1740 
IF PC=1 THEN PC=2:X=2 
PC=PC-1 

FOR I=PC TO PM 
X$(I)=X$(1+1) 

NEXT 

X$(PM+1)=" ”:PM=PM-1 
CURSOR X+1,2:PRINT DL$ 

CURSOR 37,2:PRINT X$(PC+38-X); 

X=X-1:IF X=1 THEN X=2 
GOTO 1740 

REM-<< CARRIAGE RETURN >> 

PP=PM:GOSUB 2490 

FOR 1=1 TO 36:CURSOR 3,2:PRINT DL$:NEXT 
FOR 1=1 TO PM 
X $ (I) = ” " 

NEXT 
LPRINT 
GOTO 1730 

REM- 

PP=40 

IF (X$(37)=DE$) THEN PP=36 

IF (X$(38)=ME$)+(X$(38)=HE$)+(X$(38)=DE$) THEN PP=37 
IF (X$(39)=ME$)+(X$(39)=HE$)+(X$(39)=DE$) THEN PP=38 
IF (X$(40)=ME$)+(X$(40)=HE$)+(X$(40)=DE$) THEN PP=39 
GOSUB 2490 
PM=PM-PP 
FOR 1=1 TO PM 

X$(I)=X$(I+PP) 

NEXT 
PC=PM+1 


-<< BUFFER FULL >> 


GOTO 1740 

REM-<< OUTPUT DATA TO PRINTER >> 

FOR 1=1 TO PP 

IF X$(I)=ME$ THEN GOSUB 2570:GOTO 2540 
IF X$(I)=HE$ THEN GOSUB 2670:GOTO 2540 
IF X$(I)=DE$ THEN GOSUB 2720:GOTO 2540 
C$=X$(I):GOSUB 2770 
NEXT 
RETURN 

REM-<< COMMAND >> 

N=VAL(X$(I+l)+X$(1+2)):1=1+2 
IF (N<1)+(N>CO) THEN RETURN 
JP=LEN(CO$(N,1)) 

FOR J=1 TO JP 

C$=MID$(CO$(N,1),J,1) 

IF ASC(C$)<32 THEN GOSUB 2800 
IF ASC(C$)>31 THEN GOSUB 2770 

NEXT 

RETURN 

REM-<< HEXADECIMAL CODE >> 

C$=CHR$(VAL(HC$+X$(I+1)+X$(I+2))) 

IF ASC(C$)<32 THEN GOSUB 2800 
IF ASC(C$)>31 THEN GOSUB 2770 
1=1+2:RETURN 

REM-<< DECIMAL CODE >> 

C$=CHR$(VAL(X$(1+1)+X$(1+2)+X$(1+3))) 

IF ASC(C$)<32 THEN GOSUB 2800 
IF ASC(C$)>31 THEN GOSUB 2770 
1=1+3:RETURN 


REM-<< NORMAL PRINT OUT >> 

LPRINT C$; 

RETURN 

REM-<< CONTROL CODE PRINT OUT >> 

LPRINT C$; 

RETURN 

REM-<< END >> 


PP=PM:GOSUB 2490 

FOR 1 = 1 TO 36: CURSOR 3,2‘.PRINT DL$ : NEXT 

LPRINT 

END 
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CONSOLE 40 
RI$=CHR$(19) 
LE$=CHR$(20) 
DL$=CHR$(16) 
IN$=CHR$(24) 
EN$=CHR$(22) 
REM 

GET A$ 
PRINT/P 
GOSUB 2870 
PRINT/P C$; 
PRINT/P C$; 
PRINT/P 
REM- 


:REM CURSOR RIGHT 
:REM CURSOR LEFT 
:REM BACK SPACE 
:REM INSERT 

:REM ESC TO PROGRAM END 


a=asc(x$ (i+i) )-asc<"0" 

IF A>9 THEN A=A-7 
C=A*16 

A=ASC(X$(1+2))-ASC("0" 
IF A>9 THEN A=A-7 
C=C+A 
C$=CHR$(C) 

RETURN 


-<< VAL(AHXX) >> 


IJ X h 2-B MZ- 80B/2000/2200/2500ffl3E:MjS 


999 LIMIT $F800:GOSUB 3000 
1030 CONSOLE 40 
1060 RI$=CHR$(3) 

1070 LE$=CHR$(4) 

1080 DL$=CHR$(7) 

1090 IN$=CHR$(8) 

1110 EN$=CHR$(6) 

1150 REM 
1760 GET A$ 

2330 PRINT/P 
2670 GOSUB 2870 
2770 PRINT/P C$; 

2800 USR($F800,C$):IF PEEK($F848)<> 0 
2850 PRINT/P 
2870 REM - 


:REM CURSOR RIGHT 
:REM CURSOR LEFT 
:REM BACK SPACE 
:REM INSERT 

:REM ESC TO PROGRAM END 


THEN 2960 


r) 


r) 


-<< VAL(&HXX) >> 


-<< PRINTER ERROR >> 


2880 A=ASC(X$(1+1))-ASC("€ 

2890 IF A>9 THEN A=A-7 

2900 C=A*16 

2910 A=ASC(X$(1+2))-ASC("0 
2920 IF A>9 THEN A=A-7 

2930 C=C+A 
2940 C$=CHR$(C) 

2950 RETURN 

2960 REM - 

2970 USR($0F14) 

2980 PRINT "PRINTER OFFLINE ":END 

2990 REM-<< DEF USR >> 

3000 FOR 1=0 TO 72 
READ A 

POKE 63488+1,A:T=T+A 
3040 IF TO 10195 THEN PRINT "CHECK SUM ERROR":END 
3050 RETURN 

3060 DATA 26,205,17,248,56,5,175,50,72,248,201,62,1,50,72,248 
3070 DATA 201,245,175,205,40,248,241,211,255,62,128,211,254,62,1,245 
3080 DATA 205,40,248,241,175,211,254,201,197,213,87,30,12,1,0,0 
3090 DATA 219,254,230,13,186,32,3,209,193,201,11,121,176,32,241,29 
3100 DATA 32,238,209,193,241,241,55,201,0 


3010 

3020 


•J X h 3 A MZ-1S (MZ- IP17/18/19) 
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REM- 

CO=25 

DIM CO$(CO 
CO$< 1,0)= 
CO$( 2,0)=" 
CO$( 3,0)= 
4,0) = 
5,0) = 


-<< DEFINE CONTROL CODE FOR PRINTER >> 


COM 
CO$< 

CO$( 6,0)= 
CO$( 7,0)= 
CO$( 8,0)= 
CO$( 9,0)= 
CO$(10,0)=" 
CO$(11,0)= 
CO$(12,0)= 
CO$(13,0)= 
CO$(14,0)= 
CO$<15,0)= 
CO$(16,0)= 
CO$(17,0)= 


1) 

i *;-k" 

’A*'ft" 

>x" 

y -*■+*" 

*0?* ON" 
i/UJ* OFF" 

-50 ON" 

J'sr -50 OFF" 
X-A* -X2V7* Y ON" : 
’X-A* -Z9')y Y OFF’ 

vyzyjyY on" 

*7*X?';7*K OFF" : 
tty 4 ON" 
tty 4 OFF" 

*■•**■■> ON" 

OFF" 

t>y on" 


CO$( 1,1)=CHR$(27)+"E" 

C0$( 2,1)=CHR$(27)+"H" 

C0$( 3,1)=CHR$(27)+"Q" 

C0$( 4,1)=CHR$(27)+"P" 

C0$( 5,1)=CHR$(27)+"g" 

COM 6,1) =CHR$ ( 27 ) + "h" 

COM 7,1) =CHR$ ( 27 ) + "X" 

C0$( 8,1)=CHR$(27)+"Y" 

C0$( 9,1)=CHR$(28)+"N" 

:C0$(10,1)=CHR$<28)+"0" 

C0$(11,1)=CHR$(28)+"P" 

COM 12,1)=CHR$(28) + "Q" 

C0$(13,1)=CHR$(15) 

C0$(14,1)=CHR$(14) 

C0$(15,1)=CHR$(27)+"!" 

COM 16,1) =CHR$ ( 27 ) +CHR$ ( 34 ) 
C0$(17,1)=CHR$(27)+"$«" 
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^ y 8tiUti£ 


1350 C0$(18,0)="*>** OFF” 
1360 CO$(19,0) = "fc?*r *" 
1370 CO$ ( 20 i 0) - ""hf'ti't" 

1380 CO$(21,0)s"l/64>*” 
1390 CO$(22,0)="l/84>f" 
1400 CO$ (23 i 0) =: bO" 

1410 CO$(24,0) = "1KV -*• " 
1420 CO$ (25,0) = 


') X H3-B 

MZ-2* (MZ-IPI7 18 19) 



1170 

REM- 

-<< DEFINE control code for printer >> 


1180 

CO=26 



1190 

DIM CO$(CO,l) 



1200 

CO$( 1,0) = ON” 

:CO$( 1,1)=CHR$(27)+"M" 


1210 

CO$( 2,0)="xV-F OFF" 

:CO$( 2,1)=CHR$(27)+"P" 


1220 

CO$( 3,0)="3>r*>X ON" 

:CO$( 3,1)=CHR$(9)+CHR$(9)+CHR$(9) 


1230 

CO$( 4,0 ) ="3V^r* OFF" 

:CO$( 4,1)=CHR$(9)+CHR$(9)+CHR$(11) 


1240 

CO$( 5,0)="7* O** ON" 

:CO$( 5,1)=CHR$(27)+"L" 


1250 

CO$( 6,0) = "7* n* # OFF" 

:CO$( 6,1)=CHR$(27)+"V" 


1260 

CO$( e,©)::"*!!?* ON" 

:CO$( 6,1)=CHR$(27)+CHR$(103) 


1270 

CO$( 7,0 ) = "'>□?* OFF" 

:CO$( 7,1)=CHR$(27)+CHR$(104) 


1280 

CO$( 8,0) ="7>£* ON" 

:CO$( 8,1)=CHR$(27)+"-"+CHR$(1) 


1290 

CO$( 9,0)="7OFF" 

:CO$( 9,1)=CHR$(27)+"-"+CHR$(0) 


1300 

CO$( 10,0)="7-A* -W)7 9 Y ON" 

:CO$(10,1)=CHR$(28)+"N" 


1310 

CO$ (11,0)="X-A* -X?V7* F OFF 

":CO$(11,1)=CHR$ < 28) + "0" 


1320 

CO$ (12,0) ="'77* X?V7* b ON" 

:CO$(12,1)=CHR$(28)+"P" 


1330 

CO$(13,0)="t7*XWK OFF" 

:CO$(13,1)=CHR$(28)+"Q" 


1340 

CO$( 14,0)="»^^W ON" 

:CO$(14,1)=CHR$(11) 


1350 

CO${15,0 )="****< OFF" 

:CO$(15,1)=CHR$(12) 


1360 

CO$( 16,0 ) = "*»•>*■»> ON" 

:CO$(16,1)=CHR$(27)+"E" 


1370 

CO$( 17 ,0) ="*■•>*■•> OFF" 

:CO$(17,1)=CHR$(27)+"F" 


1380 

CO$(18,0) = "1»** ON" 

:CO$(18,1)=CHR$(27)+"$*" 


1390 

CO${19,0)="»>*• OFF" 

:CO$(19,1)=CHR$(27)+"(H" 


1400 

CO$(20,0) = "k5J>* ON" 

:CO$(20,1)=CHR$(25) 


1410 

CO$(21,0) = "t W+kzW OFF" 

:CO$(21,1)=CHR$(26) 


1420 

CO$(22,0) = "l/6>f>f " 

:CO$(22,1)=CHR$(27)+"6" 


1430 

CO$ ( 23,0) = " 1/8^J'*" 

:CO$(23,1)=CHR$(2 7)+"8" 


1440 

CO$(24,0) = "*M** ••7" 

: CO$(24,1)=CHR$(10) 


1450 

CO$(25,0) = "iMV -** " 

: CO$(25,1)=CHR$(12) 


1460 

CO$(26,0)="*YVt*" 

: CO$(26,1)=CHR$ ( 2 ) 

U X h3-c 

ESC P-J83 




1170 

REM - 

- << define CONTROL CODE FOR PRINTER >> 


1180 

CO=22 



1190 

DIM CO$(CO,l) 



1200 

CO$( 1,0)=‘ , x»J-h" 

:CO$( 1,1)=CHR$(27)+"M" 


1210 

CO$( 2,0)="AM*>" 

:CO$ ( 2,1)=CHR$ ( 27)+"P" 


1220 

CO$( 3,0)="3>f>X" 

:CO$( 3,1)=CHR$(27)+"g" 


1230 

CO$( 4,0)="2** ON" 

:CO$( 4,1)=CHR$(27)+"G" 


1240 

CO$( 5,0)="2** iWf OFF" 

:CO$( 5,1)=CHR$(27)+"H" 


1250 

CO${ 6,0)="7>7* ON" 

:CO$ ( 6,1)=CHR$ ( 27 ) +"-"+CHR$ ( 1 ) 


1260 

CO$( 7,0) = "7OFF" 

: CO$ ( 7,1)=CHR$ ( 27 )+" - " +CHR$ ( 0 ) 


1270 

CO$( 8,0)="X-A*-X7V7*h ON" 

: CO$ ( 8,1)=CHR$ ( 27 ) +"S"+CHR$ ( 0 ) 


1280 

CO$( 9,0)="*7*X277 *Y ON" 

:CO$ ( 9,1)=CHR$ ( 2 7 ) + " S " +CHR$ ( 1 ) 


1290 

CO$(10,0)="X7V7* V OFF" 

:CO$(10,1)=CHR$(27) + "T" 


1300 

CO$(11,0)="#***4 ON" 

:CO$(11,1)=CHR$(14) 


1310 

CO$(12,0 )="****A OFF" 

:CO$(12,1)=CHR$(6) 


1320 

CO$( 13,0)="*B-}f«■) ON" 

:CO$(13,1)=CHR$(27)+"E" 


1330 

CO$( 14,0) = "^B*5f«'> OFF" 

:CO$(14,1)=CHR$(27)+"F" 


1340 

CO$(15,0)="*>*• ON" 

:CO$(15,1)=CHR$(28)+"&" 


1350 

CO$ (16,0) - "ij'yi/* OFF" 

:CO$(16,1)=CHR$(28) 


1360 

CO$(17,0)="4*';v* ON" 

:CO$(17,1)=CHR$(27)+"4" 


1370 

CO$(18,0) = "4*V-;* OFF" 

:CO$(18,1)=CHR$(27)+"5" 


1380 

CO$( 19,0) = "l/6>f>^" 

:CO$(19,1)=CHR$(2 7)+"2" 


1390 

CO$(20,0)="l/8^>*" 

:CO$(20,1)=CHR$(27)+"0" 


1400 

CO$ (21,0) = "2H** bV 

:CO$(21,1)=CHR$(10) 


1410 

CO$(22,0) = "*KV -»* " 

:CO$(22,1)=CHR$(12) 


:CO$(18,1): 
:CO$(19,1); 
:CO$(20,1): 
:CO$(21,1): 
:CO$(22,1): 
:CO$(23,1): 
:CO$(24,1): 
:CO$(25,1): 


CHR${27)+"(H" 
CHR$(27)+"&" 
CHR$(27)+"'" 
CHR$(27)+"6" 
CHR$(27)+"8" 
CHR$(10) 

CHR$(12) 

CHR$(24) 



') X h 4 MZ 80B 2000 2200ffl7"'; >9fr-?->V-X ') X t 


0000 




1 

OFFSET 8000H 

F819 

3E 

80 


21 

LD 

A, 80H 

F835 

20 

03 

41 


JR 

NZ,BUSY2 

F800 




2 

ORG 

0F800H 

F81B 

D3 

FE 


22 

OUT 

(0FEH),A 

F837 

D1 


42 


POP 

DE 

F800 




3 

; 


F81D 

3E 

01 


23 

LD 

A, 1 

F838 

Cl 


43 


POP 

BC 

F800 

1A 



4 

LD 

A,(DE) 

F81F 

F5 



24 

PUSH 

AF 

F839 

C9 


44 


RBT 


F801 

CD 

11 

F8 

5 

CALL 

LPRNT 

F820 

CD 

28 

F8 

25 

CALL 

BUSY 

F83A 



45 

BUSY2 



F804 

38 

05 


6 

JR 

C,ERROR 

F823 

FI 



26 

POP 

AF 

F83A 

0B 


46 


DEC 

BC 

F806 

AF 



7 

XOR 

A 

F824 

AF 



27 

XOR 

A 

F83B 

79 


47 


LD 

A, C 

F807 

32 

48 

F8 

8 

LD 

(#ERROR),A 

F825 

D3 

FE 


28 

OUT 

(0FEH),A 

F83C 

B0 


48 


OR 

B 

F80A 

C9 



9 

RET 


F827 

C9 



29 

RET 


F83D 

20 

FI 

49 


JR 

NZ,BUSY1 

F80B 




10 ERROR 



F828 




30 



F83F 

ID 


50 


DEC 

E 

F80B 

3E 

01 


11 

LD 

A, 1 

F828 




31 BUSY 



F840 

20 

EE 

51 


JR 

NZ,BUSY1 

F80D 

32 

48 

F8 

12 

LD 

(#BRROR),A 

F828 

C5 



32 

PUSH 

BC 

F842 

D1 


52 


POP 

DE 

F810 

C9 



13 

RET 


F829 

D5 



33 

PUSH 

DE 

F843 

Cl 


53 


POP 

BC 

F811 




14 



F82A 

57 



34 

LD 

D, A 

F844 

FI 


54 


POP 

AF 

F811 




15 LPRNT 



F82B 

IE 

0C 


35 

LD 

E.0CH 

F845 

FI 


55 


POP 

AF 

F811 

F5 



16 

PUSH 

AF 

F82D 

01 

00 

00 

36 

LD 

BC, 0 

F846 

37 


56 


SCF 


F812 

AF 



17 

XOR 

A 

F830 




37 BUSY1 



F847 

C9 


57 


RET 


F813 

CD 

28 

F8 

18 

CALL 

BUSY 

F830 

DB 

FE 


38 

IN 

A,(0FEH) 

F848 



58 




F816 

FI 



19 

POP 

AF 

F832 

E6 

0D 


39 

AND 

0DH 

F848 

00 


59 

#ERROR 

DEFB 

0 

F817 

D3 

FF 


20 

OUT 

(0FFH),A 

F834 

BA 



40 

CP 

D 
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A*©:£i);©7°y >xi:lHL7if, 

It 0 L7i'4 to-f, #t: 
UiBflt S&fSlffci'T'l f 7„ 

■§ mmto-y'jyvitftm 

XlturboBASIC^NEW BASIC, MZ-2500 
©BASIC-M25/S25Clf77 >7iItK3.- 

f a ')r mmm<Dy°')>? 

7 {> $• i £ =t 4 fcixifi: 

©7-7'oy7 b IfIf t A. £A s 7°y 7 7 9 
-3.-$H$o7i'4 t„ Z(DZ 

r, &-r l t> stimmvr y >* ** 5 * 

©7 , !)7^fai:Ao/;0H ! ib-3/;i), $ 
<¥i:AU7itili, (SUM:* §^*> 
A 0 l&i'l'J: < fitAi L ± 7 o 
7 fc ilf7°y >7 £”7— 7 °n y 7 b 7ffi 

I'/w l>*#•&, 7 7 M i 'i7"y>S©7*!) > 

b i-ci'ttu: esc/p mv&®y° 
')>? Htl, PC&©g|t7 ’) y 9 
If 4 f PC-PR201*- K7'ffifflAn>T^7to 
t: i l if r -t > 7V y x b f OS ±©Sfg 
ofjf 7 h $-7’y > b7t b Lfc i 
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(WfflX# 

8 o*ff 81‘> K7 k y^y b to >y 
GP-500 49.800R 

ttlKMlD : MZ-1500(GP-500Z), PC (GP- 
500M), FM (GP-500F), MSX (GP-500 
MX) 

Xtr-tM > : 4£A, «'Js 05i?, XS4T t>, 
7 y y'— y A y 
bnta« : 25-7/If- 
ti£-: ftj430 x j|If250x it $ 114mm 
Sift ! 4.8kg 

Hm-'; b ■■mmmm 

★ 

->y-7« 

sotff 91 °> k y b-i yj<y v~f')yy 

MZ-1P14 54, 800P3 

ISfiMS : MZ-700/1500(MZ^f y973.1 X) 
Xtr"-yM > : t£A, 5SP1, Xfiffi., 
7 > X— y1y 
bn tils : 50t/I’> 

• IpjVi333 x -^,1T 195 x 70mm 

fiffi: »3.5kg 


h 7990.-7 h : SiHg(5,000fl) 

★ 

ityyffiH* 

80ffi 9 f> KvK >/N”7 b 7'J > ? 

SP-80 56.800R 

««4>t)£ : Mlllffl*- b y y 7(6,000PI) 

7X1, ESC/P, PC,FM,JX&y y-Xi:jtf 


(So ESC/PA - b y y 7g#ftli ESC/P 
09-81(:'<^i»o SP-80T (62.800R) IfSP- 
80+ESC/PA— b y y 71 |sl¥ 
Xtr"t-f > : 18 x 12 b* y b iSSfi:. t£*. US 
i.si, xsffib, x-/<-/t7x 7 y 

7'b, O !! y 7, 7>7'-y4>, itt 
bPti^S : 100t/# 




mu £U'AJ >77>iBt/^ 



y 7 t§ 4. • 1 K-’M p 

: fe‘421xHft314Xjl5$84mm 
Si: 5.2kg 

h 9 X £y h : 8iJft(5,000R) 

H v h 7- h 7 4 -/ : J5iJ5b(10,OOOR) 

★ 

7. 7 -«?&«* 

8011424 f > X M 7 7 

TR-24 68,800P3 

««*US : PC(TR-24), FM(TR-24f) 
X?/-y-'4 7 : TOft, iif* mm, «1S, 
8i??ft, roiH-kjM is?, 
x-'*-/*-7'x 7 y 7ft, 77/-/7 
S«?!, Si*?ftfl 

£?, ft? 

1 #®: 57'j- 

CDlii’t: 4 fe©*7—y *'7£ffll;„ 
£P?ifi® : 70?/# (#®X?), 25?/# 

(»m 

ft}£ : lfM360 X Hft214 X ® § 79mm 
Si: 2.9kg 

★ 

'>4'-7 P «* 

80«49 t‘7 K 7 k7/7? 

MZ-IP07A 79.800R 

!*«*«& : MZ-2000/2200/3500/5500/6500 

x?/-f 4 >: &*, «r4\ im, 

7 7/-747 

EP?4£® : 120 ?/# 

fti£ : Ipg350 x Hft273 xlJ 75mm 

Si • 5 kg 

h 7 XX J-- -y h : J5lJj§(8,800R). 

★ 

7 + -7B 

801149 £7 K-y KX«7 h 7/7? 
MZ-1P08 79,800 FI 

m&ttfc ■ MZ-700/1500(MZ4 >^7i4 X) 
X?r"-f4 7 : te*, fig?, $m, TSflft, 
7 7/-9 4 7 
EP?&l£ : 120?/# 
ft i£ : IPM350 X Hft273 X K $ 75mm 
Si: 5 kg 

1 y^fr^-y \, : Sij5r(8,800R) 

★ 



MZ- I PI7 


80114 9t:>F7KW(7iyjk7 
CZ-8PD2 79.800R 

ttttWE : XI S-P-tC 
X?r'ft'4 > : &*c, fi§4\ 9£3H. TSflft, 
x—y?—/ft 7 *x X y 7ft , 7 7X'— 7 l 
7, ft? 

EP?ii* : 120 ?/#, 

?'(£ : (1392 x ||ft315 x ifg § 145mm 
Si: 7 kg 

1 : ISPfSff 

★ 

7 7-7’fl* 

80IR24 e 7 ansi: * x-;#? 7° i/ > x 

MZ-1PI7 79.800R 

ttltftlE : MZ-80B/2000/2200/2500/3500/ 
5500/6500/1500, XI 7 ') -X 
X?r"-f 4 7 : Bfllflft, mm, «fg, SilffS, 
il???ft, 7°o^— ->3+>v, ifevft §ifeSi^, 

—sit^, x-x-/t7'x?y 

7ft, 77/— 7l>, Si*?!, ft? 

1 #®: MZRr- Kf4fe* 7 - 4 7 7 y £ 
ffli'lftfi* 7— la?*"' "Tio 

pp?** : 90?/#' (fix?), 30?/#' 
(SI?), 60?/#(!l?5iiS) 

X'y7r§i : 2K/'4 h 
ftj£ : fe'352x|iftl95xjl5$72mm 
Si : 2.3kg 

^ 2 ?pil?ROM : #J3S(32,000R) 

★ 

80H43--''774 7/\"X V-hy--f')>* 

GP-700 99.800R 

t#awjs: xi/y -x"(gp-7oocz), pc( g 

P-700M) 

X?/// 7 : i£-Jc, fir/' 

1$® : 4 fe * y — y 7; 7 1:3:0, 7 i& 

* 9—lS?A J nM„ 

EP?i£S : 38?/# 

fti£ : fe'1450 x*ft320 X K§ H3mm 

Si: 6 kg 

h : IS^St® 

★ 

8011424 fc*> * 7-7/77 

PC-PR406 99.800R 

WiftlS : PC 7 y - / 



PC-PR406 


X?r'ft/ 7 : WWte Sifg, («fg, SiltfS, 
H??ft, 7”n^-7m/yy, figrj', 44P, 
X-A'-/t7'X7 'I 7ft, 7 7/— 7 4 

7, 4 9 y 7 7, Si*?!, #•-£ 

1#® : *7-4 77y*'7?r1£fflL7 7feO 
*7-l^$* ? oT#g 0 § Gt:*7”7 3 7co* 
7 — 7 t"—/— KcRGB7—77 u4>1$(k? 
5; ti:i !), HH^* 7 —K 7 t°— 

* S fttgo 

EP?M)S : 60?/# (tax?), 40?/# 

(iS?) 

• (S405 x .^.ft268x [gj £ 104mm 
Si • 8 kg 

yy^f,SL-,y \, 

% 2 7)c^iI?R0M : J}iJ§g 
*7-7t“-7'- K : S'Itc(37,000R) 

★ 

7*7-7'-iSro(« 

80H4241"7 K 7 h4>rft 1 ;H?7" 1 ) 7 7 
M-1024 I28.000R 

liliftE : PC 88 , 98(M-1024P), FM (M-10 
24F), MSX(M-1024X) 

X?r"-f 4 7 : BflfBf? «§fg, ®1S, lllffS', 
m??ft, 7 ”d 44 — 7 a 7 >^, firtft, SIM, 
X— '->°-/-y-7*X7 y 7ft , 7 7 7'— 7 4 
7, Si*?!, ft^; 

1 #® : ^*"4EP? J P?S2*^EP?**nrAg 0 $ 

G C*7°7 3 7©7 * — 7 -y h 4r—^i'— K 

*W.7 z 11 : J; 0 , *K©IS:$ J Pf«S • 
«VnftFmL«rlBf*cft5 z 
EP?M® : 20?/#(31?), 40?/# (81? 
itya) 

ft'f£ : fe'352 x ^.ft234 x ® $ 78mm 
Si : 4.5kgFIT 

|, P : SiJ9u(5,000R) 

* 7 h 7- h 7 4 -/ : Jft%(20,000R) 

W> 2 7)G|lil?ROM : UflinJ (20.000R) 
7*—yy l^r-T-F : S'I^(29,800R) 

★ 

vt-7'1 

8011424 f 7U 7 7 
CZ- 8 PNI I34.800R 

: X1 -7 y - x" 

X?r"-f 4 7 : BftSUf?, Sifg, ISIS, Sittl®, 
il??ft, fiB'Jx ?m TSITG, x-y'° 
-/t/X7 '/7ft, 7 7/—7 4 7, Si 
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ss, *1-1= 

EP=ft»* : 601=/# (!«?), 201=/# 

(in, 4o^/#(gi^i@a) 

/{ ';7r§f: 2K- , M k 

"1 j£ : te'1427 X ft)7298 x ,gj $99mm 

S* : #j6.5kg 

k = 7993 .=.*; 7 : J3iJft(i9,800R) 

% 2 **11:ROM : W-ft 

★ 

x^VVSfiJfid* 

808724 fVF'yKX/'^H^y^? 
VP-80K 147, OOOR 

$«**)£ : ESC/P 24-J83 0 1- k ') y i?X 
X 1)8 (14, OOOR), PC)B(12, 
OOOR, II 13,OOOR),FMR(13,OOOR) 

xt-r-f'i > : m$m, «#, mm, fiitsis, 

!*¥£, fatf-isai-A', 15CPI, 8 s 
'l\ 5;m ~S.iJh, x—/-y-/x 7 
y 7°k, A 9') 9 9, 7 7/-717, 81 

SI, #1= 

•y/f*f8T'iBit;®/#:ji:5c 
:£©)» 9Sx* { »m,, 

: 1201:/# (W*//), 401=/# 

(in, 

'*-7 7 7 ?Fi : 1.5K'M k 

I'ii ■ 15405. 5x ])| 17335 x jgj$ 93mm 

Si : #9 6 kg 

k 7 9 9 i- -y k : J5l|ro(8,OOOR) 

-/ : Sij5t(15,000R) 

% 2 **11=ROM : J5iUt(15,OOOR) 

★ 

7-v-/<» 

808724t’>K7K >'<? k M27') >9 
CZ-8PK4 158,000P3 

ftFlMtE : X 1 7 y -x" 

///-tf/ 7 : Mfg, IfS, 8i£ft-f£, 

11=*^, m\ 5m ZS1T8, x-y* 
—/-fy'y 7 y 7° k, 7y9’—y A y, 81 
SI, #1= 

7'!® : 1 y/4*fl5-C'iBt;®/#jiX 

fvw o 

EPHS® : 1201:/# (-*M/1=), 401=/# 

(in, 80 ^/#(* 1 =*a) 

: l.5K^M k 

1~H; : Ipffi405.5 x 1117335 x ® $ 93mm 
Si • 6 kg 


\. ? 9 ? *--y h: mmmi 

m 2 7K*11=ROM : JjiJlE(15,OOOR) 

★ 

13687241"7 K-y H 7;\'7 kill:/ 1 ! >9 
VP-130K 177,OOOR 

: ESC/P 24-J83„ H- k ) 9 // 
«■««(:Xlffl(14,OOOR), PCffl(12 
, OOOR, II 13.000R), FMP8 (13.000R) 

///// 7 : Hflfflfts «f§. 8tfS, ffifltfg, 
ll^ft, y°v.i?,-is a-t>v, 15CPI, 88 
'J\ 5m y-''°-/1ry'%9 

') 7° k, -f*y-y7, 7>9"-y A 7, 8e 
SI, #1= 

•yf^t'it!®®/#®* 

1=©W 

EP1=it® : 1201:/# (tTiXH, 401:/# 

(111:), 801=/#(11:*a) 

yt'-y 9 rfl : 1.5K^4/f k 

: Is580.5 X Hlf 335 x ® § 93mm 
Si : $(j 8 kg 

7 9 93.- 9 k : S'J0 b(10,000R) 
i) 9 k 7- k 7 A —it : S'Jro(25,000R) 

^2 7kP11=ROM : *iJ^(15,000R) 

★ 

yy-y’m 

8087241'> KvK 'si<9 H1/J >9 
MZ-1P18 188,OOOR 

A'y A 9 77 t, ©=t— K'433 0 
giizi 9, MZ-80B/2000/2200/2500/35 
00/5500/6500/1500 C8t)£. UtS L, MZ-8 
0B/2000/2200/1500©BASIC©^'— K 3 t° 

Ac^r-fA y : wfflfo mm, mmm, 

y°3rfs—y a7^, 8S1', 5i®3, 

nmn%, 6ft7-^“-/-i7'x7 y 
7” k, 7 y9'—y A y, dflfti, #1= 
EP1:it® : 1201:/# (HiSH, 401:/# 
(11:), 80l=/#(11:iSa) 

9 y 7 $li':: 2X75/ 7 
1"(£ : Is360 X H11275 xfii$ 80mm 
Si : 4.5kg 
k 7 9 93.— 9 k : 

* 7 k 7- k 7 7 -/ : S'Jtc.(60,000R) 

Zti 2 /K^l/ROM : gi)5E (28,OOOR) 

★ 




13687241”> k/K >/\"7 k *¥/'! > ^ 
CZ-8PK3 189,OOOR 

««WIS : X 1 7 y — 7/ 

Ac^r-fA y ■■ mm, mm, itfg, mmm, 

8si\ 5 m -mtrb, ■*.-** 

-/t7'x/ y 7°k, 7 y 9'—y A y, 81 
$!*, # 1 = 

87® : 7/l»f8/'ii5S;®/#ii/ 

1:©«J9^X.* J #^o 

EPHS® : 1201:/# (#»//), 401:/# 
(in, 801:/#(11:®it) 

'F;7rM : 1.5K^M k 

• Is580.5 x |Jit 335 x ® § 93mm 
"1££ 1 8 kg 

Y y 9 93.-9 Y : (fifgff 

ij y k 7- k 7 4 -7* : J5iJ5fi(24,800R) 

^278*11:ROM : 5)816(15,OOOR) 

★ 

'>*--/m 

13687241"> k'-y H >7\*7 kill:/ 1 ) 7? 
MZ-1P19 288, OOOR 

(SfIMtS : '-fl./u x 1 9 77 c, 0 )=e— K'lJ) 9 
®ii:J:9, MZ-80B/2000/2200/2500/35 
00/5500/6500CL, MZ-80B/200 
0/2200©BASIC©'''— k"=i k°— 

ic?r-v'A y : fyiw#, mm, mm®, 

Wkf¥ft, 7°D -14-7 3/71', |g/J', 5 in, 
/S1T8,0ft|!, x— /-9-/X 7 y 7° 
k, 77/-5 17, #1: 

EPI-iS® : 1651:/# (SaXH, 551:/# 
(11:), 1101 s /# dHtifi) 

't'yZrfi 1 2'/ k 

: Is550 x JI11330 x ® § 152mm 
Si: 11kg 

Y 7 993.-9 k : H*gff 

9) y k 7- k 7-f -9 ': J5iJ?e(98,000R) 

s 2 /*i/rom : mmmm 


★ 

IBlL'-6-#-ttife(50Sli) 

X-7V 7fK^«) 

7t-7’M 

x3?— 

Blc* Sid® 
/x-f-IR-^TO 


Q03 (348)7121 
Q06 (621)1221 
00542(63) 1111 
003 (555)9455 
003 (452)8000 
0052 (263)5811 



MZ-1PI8 


VP-80K 
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HuB ASIC CXI ,MZ-1 500 /S 000 / 2 E 00 2500 ] 


EZ 

SKSXA-Kpe- 


TILE 

CHANGE 


_ 


Uno Yasushi 

m 

J - 1 — ™ 

BAS I C0 7'l';i"<'1'> MSfl&fc-j $ <*IJfflL tz, t£b't£b'3--—!? ts.7 4 ?7i:i5 
j£t«(?) 8Pgp07'77-f *-;UBASIC0*Sl'7'n7 

7 AT-rA'^&iifc i® i*o L S To 


itB, 7°n7'7/.0jW/r Ji P7''77 4 77 

®''- K 3 1 °—cftenSo-CXll K 

7 17°) 7 7 CZ-8PDZ £S t'H fc * ? , 7° 
n7"7 A0j!?#ft£fit*>t:iftU& 0 £ L 
ft, 7*7 7 4 7 70-’'— h* 3 tf— 
fci ? Uii'S itAfU:. ti'5 0ii, 
g3H£ 17—iS®0''— K3 k°—frt Z> t 
&t: £ o T 0flBga f o < 0f li & i' *> t ,©o 
f l'i:0fta { , K3 k.°—4r L 

■TAU, 7°y 77<:lit'0fett'ifl 
fe-C’flJTlfcO'fLfc f*/: 

Hi©: 

t i ollil 

of l£ ?0f ^£U£tei.'ftt:&<tA,t.© 
&A, t A'W&**o{t C, 
5 *’tgl'f^fc©<i s :®7’n 
7" 7 A-C'-fo 

:n.«jiiffi±(:*2.7"7 7^ 

RUNtStP 

CG4-S*L/:*t, «J640 K 7 h *• i'? *• 
Ml'T&i-fo £ tmiJT Y3?J¥L, 320 K 


7 t & ii> N £t¥ L £ to £ 0ft, XI turbo 
f CZ-8FB02/8CB02£ff^Ti.'6 t l(£, 
400 K 7 h *>£ 5 A'WH'T It £ -to £ It 

nisr y 4-# L, 200 K7h&&N*fl»i£ 
t. tit, < sot 

iH't SI£Y?r#l£t. 

#CU¥feCt***fc'5**RH.'-CS£t. 
Y£#t t £0fefcflfli.'t < 40-r, *7 
-3-K?fA* Lf < /.'ll', £W£, @ 

n-r&i^t jw& < * 4 0 -r, efe* 

(i*>0fec^i. 5 tz#>-Cto fflAtfJt:l£4 
(WbhH'LSA'itoAtlbWbZ t S&fe 
»:£&L*&«>£to *>^c £ 

t* s , Jlft.'* t&*'&*’&(> LM'0f 
ftotl't < A'S-i'. £0f0, 
a Y*n* f ^R£>ftT<.' £ t„ 
%mmbZI:, 5t>' 

HH'TI£t. £ftl£, 

^^1'0-C"t* ? , 7°y >71:^'—K3 t°— 
?& t@®±t 7°) 7 7ffl«Lt0&«* 5 'S. 
MC&£>£:*, £ fi% , IEfi?t:3 t.°—t i> tz 




e?rt^- Ka 
e-Titmx-m 
bsnxevmsn 

■5fc», HIT 

mtumtfihi' 



aft. Y %-ift t ^n?ii0k" 7 I- * ? K 
$E L £ to 

}At:*S|EH?f'iit*‘t' 5 l> £ 

to wixli, @®±t*'7"7 7 4 7 7**it' 

Sn^-iilfe-T't* 5 ', 

= 7-y77ffltffi.tri> 

St &-&0t':ft£et:t£A*-r't(EI) o 
Yfcfft 

0-r, T7*- £ fclii'a 4 XT 4 7 7-r 
$)]b' L t, x^-x4f— £irl£ t !>#-*' 
7 >f L £ to 2 .&H&£t 5 t 

* < 5 0f, 

t IttYWtt 2£«r*tft ttiBOXO 
$5H* ? 7 ) 7$ m to *0ft£fc, *5 

!6H*iSt**e5**Mi’-C< 6 0 -r, n 

MSil'k &l£Nfc# L£to 

HftC7“!; K 3 k°—t 6 *' £ 

? I £ t0f Y*‘Nf§i.T < /' 

Si'. 


SS*S!T-£««<7>HuBASICC:ttfS-f S £ 
0. S BASICCJMSL’C’-fl^ 0 

C¥5riPxT*.£ Lfc. SMLfc<mj*0-7 
7JK7>50~I IOtTX-iT-oTl'5,77 U—><7> 
70 7I-77 I- LA<4‘t'S5 

&&>mrzmmb-v sa-x-t. 

7 7 0-><7)WM-(tgB*T-(iit«3!at;ffl 
£*£2 ! <fext'£t. 7*77-f 7?w*#a 
C-g-^-t+T, «-iT-iga4'ta«rftALX®T 
X<fc-?l'o 

*-y;US»lli CR$, CL$, CD$, CU$ <7) 
4 7<t>^aX^|SlA 5 *£ 0 STo 50ff~80ir 
X4SDMSS L X l' i £ Z 7,5-# # &*. ft(£, 
*-7;u4r-X-«lA't- t* ! X? S £ 0 C<C 
0 £t„ 

X, 5S@ro/\'7->%-liJf?ELX*5OTtifct> 
LAl'TL J: Ota. 


U 7 (• 1 TILE CHANGE(X I XI turboffl) 


10 » ***** TILE CHANGE by Yasushi Uno ***** 

20 INIT:CLS:DEFINT a-z:CLICKOFF:PLAY 200 

30 LOCATE 1,23:COLOR 6:CFLASH 1:PRINT " Now Setting PCG. M :CFLASH:COLOR 7 
40 FOR i=32 TO 223:a$=LEFT$(CGPAT$(i),8):DEFCHR$(i)=STRING$(8,255)+a$+a$:NEXT 
50 ’ ===== Screen mode ===== 

60 a$ =" t-r A 33 640 F*vF f***":GOSUB 480:IF f=0 THEN a=639 ELSE a=319 
70 IF PEEK (1)=&HFA THEN b=199:OPTIONSCREBN 2:WIDTH (a+l)/8:GOTO 100 »X1 

80 a$=" *-!■- A 1r 400 V vh f* W ': GOSUB 480:IF f=0 THEN b=399 ELSE b=199 ’turbo 
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90 OPTIONSCREEN 4:WIDTI* (a+1)/8,25 , (b+1)/200-1,0 »turbo 

100 LOCATE 1,22:CGEN 1: PRINT " >** Y ) *-!•" ";a+l; "x" ;b+l; :CGEN 

110 a$ = " 3l/r* YYt* 7* ” :GOSUB 480: IF f=l THEN 60 

120 * ===== Change tile ===== 

130 a$ = " :GOSUB 480:IF f=l THEN 260 

140 LOCATE 1,23: CGEN 1: PRINT " 1* ) YD — *77* ? (1-7) "; : CGEN: PLAY "C" 

150 KEY0, " " : a$ = INKEY$ ( 1) : IF a$<"l" OR a$>"7" THEN 150 ELSE PALET 7,VAL(a$) 

160 CLS:FOR y=0 TO b:LOCATE 1,23:CGEN 1:PRINT ” Y=";y:CGBN 
170 FOR x=0 TO a:ON POINT(x,y) GOTO190,200,210,220,230,240 
180 NEXT:NEXT:GOTO 260 

190 PAINT(x,y),HEXCHR$("888888000000222222000000"),0,2,3,4,5,6,7:GOTO180 * 7* 
200 PAINT(x,y),HEXCHR$("888888222222"),0,1,3,4,5,6,7:GOTO180 ’ r * 

210 PAINT(x,y),HEXCHR$("AAAAAA444444AAAAAA111111”),0,1,2,4,5,6,7:GOTO180 * Ay** 
220 PAINT(x,y),HEXCHR$("AAAAAA555555"),0,1,2,3,5,6,7:GOTO180 » 

230 PAINT (x, y) , HEXCHR$ ( "EEEEEE555555BBBBBB555555" ) ,0,1,2,3,4,6,7: GOTO 180 * 

240 PAINT (x, y) , HEXCHR$ ( "EEEEEEBBBBBB" ) ,0,1,2,3,4,5,7: GOTO180 * *YD 

250 * ===== Reverse bit ===== 

260 a$ = " YD 9 i\>f> *77*" :GOSUB 480: IF f=l THEN 290 
270 LINE (0,0)-(a,b),XOR,7,bf 
280 * ===== Line box ===== 

290 a$ = " 7\ n*Y * 7*77*" :GOSUB 480: IF f=l THEN 450 

300 x=8:y=8:r=0:GOSUB 410:FOR i=l TO 2 

310 ON i GOSUB 420,430:GOSUB 370:ON i GOSUB 420,430 

320 IF t=-l THEN ON i GOTO 340,350 ELSE IF s=0 THEN r=0:GOTO 310 

330 GOSUB 380:GOTO 310 

340 PLAY "C":z=x:u=y:r=0:PAUSE 3 

350 NEXT: GOSUB 430:a$ = " al/r* YYr*7*":GOSUB 480: IF f=l GOSUB 430:GOTO 290 
360 LINE (z,u)-(x,y),PSET,0,bf:GOTO 290 

370 s=0:t=0:FOR j=0 TO 2:s=s OR STICK (j):t=t OR STRIG (j):NEXT:RETURN 
380 r=r+l:w=-7*(r>3)+1 

390 x=x+{(s-l)MOD3-l)*w:IF x<0 THEN x=0 ELSE IF x>a THEN x=a 
400 y=y+((l-s)¥3+l)*w:IF y<0 THEN y=0 ELSE IF y>b THEN y=b 
410 LOCATE 1,23:CGEN 1:PRINT USING " X=### Y=### x;y:CGEN:RETURN 

420 LINE (x-4,y)-(x+4,y),XOR,7:LINE (x, y- 4 ) - (x, y 4 ),XOR,7:RETURN 
430 LINE (z,u)-(x,y),XOR,7,b:RETURN 
440 ’ ===== Hard copy ===== 

450 a$ = " 7••;>* - 3f« *77*" :GOSUB 480 

460 IF f=0 THEN HCOPY 0:KEY0,"":END ELSE KEY0,"":END 

470 ' ===== Print & Key in ===== 

480 LOCATE 1,23:CGEN 1:PRINT a$;" ? (Y or N) CGEN:PLAY "V12O5C0" 

490 KEY0,"":i=INSTR("Yy>NnS",INKEY$(1)):IF i=0 THEN 490 
500 CLS:IF i<4 THEN f=0:RETURN ELSE f=l:RETURN 


<) A h 2 TILE CHANGE(HuBASICffl) 


10 » ***** TILE change ***** 

20 INIT:CLS:DEFINT a-z:CLICKOFF 

30 LOCATE 1,23:COLOR 2 » MZ-20/22 : PALET 

40 * ===== Key Initialize ===== 

50 CR$="6" ’ Cursor Right 

60 CL$="4" * Cursor Left 

70 CU$="8" ’ Cursor Up 

80 CD$="2” * Cursor down 

90 ’ ===== Screen mode ===== 

100 a = 639 * 33 > Y'vh 

110 b=200 * 9f J vY 77 

120 ’ ===== Change tile ===== 

130 CLS:FOR y=0 TO b:LOCATE 1,23:PRINT " Y=";y 

140 FOR x=0 TO a:ON POINT(x,y) GOSUB 160,170,180,190,200,210 

150 NEXT:NEXT:GOTO 230 

160 PAINT (x, y) , HEXCHR$ ( ,, 888888000000222222000000 ,, ),0,2,3,4,5,6,7 : RETURN 

170 PAINT(x,y),HEXCHR$(”888888222222"),0,1,3,4,5,6,7:RETURN 

180 PAINT(x,y),HEXCHR$("AAAAAA444444AAAAAA111111"),0,1,2,4,5,6,7:RETURN 

190 PAINT(x,y),HEXCHR$("AAAAAA555555"),0,1,2,3,5,6,7:RETURN 

200 PAINT(x,y),HEXCHR$("EEEEEE555555BBBBBB555555"),0,1,2,3,4,6,7:RETURN 

210 PAINT(x,y),HEXCHR$("EEEEEEBBBBBB"),0,1,2,3,4,5,7:RETURN 

220 ' ===== Reverse bit ===== 

230 a$ = " ■YD 7 A>r> '>7X*":GOSUB 470: IF f=l THEN 260 
240 LINE (0,0)-(a,b),XOR,7,bf 
250 ’ ===== Line box ===== 

260 a$=" 7\ nw 1 7*7 *%":GOSUB 470:IF f=l THEN 440 

270 x=8:y=8:r=0:GOSUB 400:FOR i=l TO 2 

280 ON i GOSUB 410,420:GOSUB 340:ON i GOSUB 410,420 

290 IF t=-l THEN ON i GOTO 310,320 ELSE IF s=0 THEN r=0:GOTO 280 

300 GOSUB 370:GOTO 280 

310 PLAY "C":z=x:u=y:r=0:PAUSE 3 

320 NEXT: GOSUB 420:a$ = " 3l/f* Y Yr* X %" : GOSUB 470:IF f=l GOSUB 420:GOTO 260 
330 LINE (z,u)-(x,y),PSET,0,bf:GOTO 260 

340 S=0:T=0:KEY 0,"":ky=INSTR(CD$+CL$+CR$+CU$+" ",INKEY$(0)) 

350 IF ky<5 THEN s=ky*2 ELSE t = -l 
360 RETURN 

370 r=r+l:w=-7*(r>3)+l 

380 x=x+((s-l)MOD3-l)*w:IF x<0 THEN x=0 ELSE IF x>a THEN x=a 

390 y=y+((1-s)¥3+l)*w:IF y<0 THEN y=0 ELSE IF y>b THEN y=b 

400 LOCATE 1,23:PRINT USING " X=### Y=### ";x;y:RETURN 

410 LINE (x-4,y)-(x+4,y),XOR,4:LINE (x,y-4)-(x,y+ 4),XOR,4:RETURN 

420 LINE (z,u)-(x,y),XOR,4,b:RETURN 

430 ’ ===== Hard copy ===== 

440 a$ = " 7 ••)>* r. af- ^yx*":GOSUB 470 

450 IF f=0 THEN HCOPY 0:KEY0,"":END ELSE KEY0, MM :END • MZ-20/22 : HCOPY 1 
460 ’ ===== Print & Key in ===== 

470 LOCATE 1,23:PRINT a$;" ? (Y or N) M ;:PLAY "V12O5C0" 

480 KEY0,"":i=INSTR("Yy>Nn2",INKEY$(1)):IF i=0 THEN 480 
490 CLS:IF i<4 THEN f=0:RETURN ELSE f=1:RETURN 


7* 

7% 

Ay** 

V 

*7's 

*YD 
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HuBASIC(Xl,MZ-1500 2000 2200 2500) 


/\—K=l tf— 



Nagase Shohei 

mm g 




TILE CHANGElijSS-hTtHlSr L TPgiS£fflTfc»©AL—t-f 'Jf-fTl tztf.Ztlfr 
2o<7)7'oy7AB^6&A^->|:S|iL'j;A ! 'b7' l J > htt h Lit. it 
^©^SET-g-t'J >7C*fCST-# Sfo K=i tf-fcsfc LA, T*< 


i'6i'ii7-^ + t70CG4 
%mzntz*> it, M&n<D 
S {> © i L t^TCCHt't A>' & 4 
< 4 1 3 t„ It l, t-A©|J fcAtli 


-7 v- vtSt'HCOPY 4i' L, BASIC 
OCGcDHCOPYI>)Sjii^AH’i:^o*© {, 
©LtflSOht ti-A 0 £ ZttHI?SiEt 6© 
It -t/tnty 77t'8l% c P!t HCOPY 
4 ! tn4/B 7"7 At'to Oh! FM 4 iffli 


t Yi:: ©f ®7 ’b /7 ixt l 

i tt\ x i 4t fm c 

J 4lt S©tt„ 

I §1ISA-K3tf-(X1 xiturbcjffl) 

C ©7° 3 7'7 A lit — Hu 

MonitorOtt'^—t > 4 3 —a L1i' 3 
t©t\ BASIC CZ-8CB01*>CZ-8FB01* 5 ' 
i&gt'to turbo BASIC t'tilftl! it/Lo 
7"B/7A^i(,-ltJ t 640x200 ©0®t 

88*i'itT4 pgwt7*y 771 :m* 1 3 

to *14© t L A li RP-80F/TII t: L t*f 
CEL tfitA* 5 ', 640L"-7 h 4 7—7'^e— 
F'A J ;bS7°y 77tf$oti.'S:frli, 7° 3 
7*7 At©- 3 7 h 3 — 71 /a — F^” §43©7° 

y y^IcfStK t ci y ;o/b/ 

7 A^tt t S C. fc t't'l St l 1 To 7° 
y 77 3 7 h 3 —a- a — F© 7 F v x 11*1 
iFt&Cftl 3 t» 4fe, 7° 3 7" 7 a © x 
7 — h 7 F B- x li FBOOh t'to 

FCFIh 18/2161 71 (ifclifil@* 
©) ex It 

FCF5h 2/216 4 77 (3 4liHJ®K 

©) esctt 

FCF9h 8 F 7 h L'' 7 h 4 7 — S-ta/E 
16401." 7 ht'-ttHS 
FCFFh 1/64 7 7&It 
FD02h 7° y 7 7 y -t 7 h t Stfr 
^ t''— 7 CDfk&l -liFFH t Ati S 
5b li if M 1 4 FM i: liIfffi© t S 4 c' c 
ttttMto £AliXl tlilPLfrilgiill 
t t,G-RAMIii«i4i'i tSrfJffllt, 

t^t ©7°n 7"7 A©/'— F 3 L°— ^IXS 

S fci*t£ S 11' 5 - t 4©tt» *t'(: 

< Xl/C/Cs/Ck/D(: liIPLx4 7 tt* i) 

3tAo «*tt* f wO#tt»*S6«!)-C 

< fcti'. 

$ LTIPLt'IHfj] L4 C,,0A8 B h #^402 h 
C#|! fti4H u BASIC4eiIjtnt'77 7 
of 7 7 li £ © 3 3 5Sott’3 to 

I LL^X7V-K=Hf-(t«a) 

C ©7 ° 3 7' 7 A |i 960 F 7 h 1 7 h 4 7 
-'Skmmix, CRT © 1 F 7 h 4 7 ° y > 
7 C 2 x 4 = 8 F 7 h t'ffo J, ©t, HuBASI 
Ct t turbo BASICtt, 34tl©0tii 
t'ftfe©BASIC16 H: i 3 to 4fc, turbo 
BASICS? ^liRUNtSljliKMODEO 
fr^frltfoi'T < 4*?i.'o 



6# Oh! MZ 1986.4. 

















7°v?°7^ii4mr-WiW--c\ nutrta 
mmiSl'Jt, t ' t> fa 5 RP-80FT/ 
IIiil'T'i' tf\ 7°') 3 > |> o— >vzi— K 

960K-7 h 4 & 

* ? ^i.^i-&iic$(o)~c$(7) itm-nu 

fc' L T 6 h"-7 h ✓•?*-;/(: L TAT < /■'Sl'o 


K'a t °—c 
& 9, ? 4 y r'-? >, £ A*• £> {> o fcif* 
5>;M t.’pA.&t' 
o<#c^cfl-t,aiL-c, 

4-o-C L i L4» ®3A. 
k, #cK 3 t°—4 
1X5 t & izliiUMl * L i 5„ #?£(:, 


*->3r0flfgL-C < ft477J-—f-©Mr. 
Suzuki i to 


<#tX»c> 

Oh!MZ, 1985^-3 71 IQ- r Xl turbo BIOS <D«Wj 
O h! MZ, 1985ip9 73^- r S-OS#Hlt!! J 

-t y Z—Wft 


9X7 2 fFillSt'' — K 3 fcf — • ?>zf') 7 h (XI Xlturboffl) 


FB00 

01 

00 

40 

ED 

43 

EB 

FB 

11 

: 68 

FB08 

F5 

FB 

CD 

C4 

FB 

26 

32 

E5 

:B9 

FB10 

ED 

4 B 

EB 

FB 

CD 

68 

FB 

11 

: 5F 

FBI 8 

F2 

FB 

CD 

C4 

FB 

CD 

A 4 

FB 

:E5 

FB20 

ED 

4B 

EB 

FB 

21 

00 

40 

09 

: 88 

FB28 

44 

4D 

CD 

68 

FB 

CD 

A4 

FB 

:2D 

FB30 

ED 

4B 

EB 

FB 

21 

00 

80 

09 

:C8 

FB38 

44 

4D 

CD 

68 

FB 

CI) 

A4 

FB 

:2D 

FB40 

11 

FI 

FB 

CD 

C4 

FB 

CD 

D5 

:2B 

FB48 

12 

ED 

4B 

EB 

FB 

CD 

D0 

FB 

:C8 

FB50 

CD 

D0 

FB 

CD 

D0 

FB 

CD 

D0 

: CD 

FB58 

FB 

ED 

43 

EB 

FB 

El 

25 

20 

: 37 

FB60 

AE 

11 

F4 

FB 

CD 

C4 

FB 

C9 

: 03 

FB68 

26 

50 

11 

F6 

FB 

E5 

C5 

D5 

: F7 


FB7 0 
FB78 

16 

77 

04 

23 

21 

CD 

ED 

D0 

FB 

FB 

ED 

15 

78 

20 

2F 

F5 

: B7 
:5C 

SUM: 

83 

94 

AC 

54 

86 

2F 

BB 

8C 

: 13 

FB80 

D1 

CD 

8B 

FB 

Cl 

03 

El 

25 

: EE 

FB88 

20 

E3 

C9 

21 

ED 

FB 

0E 

08 

: EB 

FB90 

06 

04 

E5 

AF 

CB 

16 

17 

17 

: AD 

FB98 

23 

10 

F9 

El 

EB 

77 

EB 

13 

:6D 

FBA0 

0D 

20 

ED 

C9 

11 

F3 

FB 

CD 

: AF 

FBA8 

C4 

FB 

11 

F6 

FB 

21 

80 

02 

: 64 

FBB0 

1A 

CD 

E2 

12 

13 

2B 

7 C 

B5 

:4A 

FBB8 

20 

F6 

11 

F2 

FB 

CD 

C4 

FB 

: A0 

FBC0 

CD 

D5 

12 

C9 

1A 

FE 

FF 

20 

:B4 


FBC8 

01 

C9 

CD 

E2 

12 

13 

18 

F4 

: AA 

FBD0 

78 

E6 

38 

FE 

38 

3E 

08 

20 

: 32 

FBD8 

07 

E5 

3E 

50 

26 

C8 

18 

04 

: 84 

FBE0 

80 

47 

B7 

C9 

6F 

09 

4D 

44 

: 50 

FBE8 

El 

B7 

C9 

00 

00 

00 

00 

00 

: 61 

FBF0 

00 

IB 

33 

12 

FF 

IB 

33 

02 

: AF 

FBF8 

FF 

IB 

25 

32 

02 

80 

FF 

IB 

:0D 

SUM: 

D2 

3F 

50 

75 

78 

52 

62 

6F 

: 71 

FC00 

36 

FF 

IB 

63 

31 

0A 

FF 

00 

: ED 

SUM: 

36 

FF 

IB 

63 

31 

0A 

FF 

00 

: ED 


1/ * 7 3 

taiK/'-Kafcf 

— . 

V- 

(Xl/XIturboffl) 










0000 




l : 

XI HARD COPY VER 1.00 (FOR HU-BASIC VER 1.0) 

FB93 

AF 




86 


XOR 

A 

0000 




2 : 

PROGRAMED BY S.NAGASE 

FB94 





87 

VER1 



0000 




3 ; 




FB94 

CB 

16 



88 


RL 

(HL) 

FBO0 




4 


ORG 

9FB00 

FB96 

17 




89 


RLA 


FB00 




5 




FB97 

17 




90 


RLA 


FB00 




6 CR 


BQU 

$12D5 

FB98 

23 




91 


INC 

HL 

FB00 




7 ACCLPT 

BQU 

$1282 

FB99 

10 

F9 



92 


DJNZ 

VER1 

FB00 




8 




FB9B 

El 




93 


POP 

HL 

FB00 




9 




FB9C 

EB 




94 


EX 

DE, HL 

FB00 




10 ; 




FB9D 

77 




95 


LD 

(HL),A 

FB00 

01 

00 

40 

11 


LD 

BC,$4000 

FB9E 

EB 




96 


EX 

DE, HL 

FB03 

ED 

43 

EB FB 

12 


LD 

(GRAWORK),BC 

FB9F 

13 




97 


INC 

DE 

FB07 

1 1 

F5 

FB 

13 


LD 

DB.RESET 

FBA0 

0D 




98 


DEC 

C 

FB0A 

CD 

C4 

FB 

14 


CALL OUTSUB 

FBA1 

20 

ED 



99 


JR 

NZ.VER0 

FB0D 

26 

32 


15 


LD 

H, 50 

FBA3 

C9 




100 


RET 


FB0F 




16 




FBA4 





101 




FB0F 




17 MAIN 



FBA4 





102 

PRINTER 


FB0F 

E5 



18 


PUSF 

1 HL 

FBA4 

1 1 

F3 

FB 


103 


LD 

DE,DATATRANS 

FB 10 

ED 

4B 

EB FB 

19 


LD 

BC.(GRAWORK) 

FBA7 

CD 

C4 

FB 


104 


CALL 

OUTSUB 

FB 1 4 

CD 

68 

FB 

20 


CALL BITREV 

FBAA 

1 1 

F6 

FB 


105 


LD 

DE,PRINTBUF 

FBI 7 

1 1 

F2 

FB 

21 


LD 

DE.KAIGY02 

FBAD 

21 

80 

02 


106 


LD 

HL,640 

FBI A 

CD 

C4 

FB 

22 


CALL OUTSUB 

FBBO 





107 

PRO 



FB1D 

CD 

A4 

FB 

23 


CALL PRINTER 

FBB0 

1A 




108 


LD 

A,(DE) 

FB20 

ED 

4B 

BB FB 

24 


LD 

BC,(GRAWORK) 

FBB1 

CD 

E2 

12 


109 


CALL 

ACCLPT 

FB24 

21 

00 

40 

25 


LD 

HL,$4000 

FBB4 

13 




110 


INC 

DE 

FB27 

09 



26 


ADD 

HL.BC 

FBB5 

2B 




111 


DEC 

HL 

FB28 

44 



27 


LD 

B.H 

FBB6 

7C 




112 


LD 

A, H 

FB29 

4D 



28 


LD 

C.L 

FBB7 

B5 




113 


OR 

L 

FB2A 

CD 

68 

FB 

29 


CALL BITREV 

FBB8 

20 

F6 



114 


JR 

NZ,PR0 

FB2D 

CD 

A4 

FB 

30 


CALL PRINTER 

FBBA 

11 

F2 

FB 


115 


LD 

DE.KAIGY02 

FB30 

ED 

4B 

EB FB 

31 


LD 

BC,(GRAWORK) 

FBBD 

CD 

C4 

FB 


116 


CALL 

OUTSUB 

FB34 

21 

00 

80 

32 


LD 

HL,$8000 

FBC0 

CD 

D5 

12 


117 


CALL 

CR 

FB37 

09 



33 


ADD 

HL.BC 

FBC3 

C9 




118 


RET 


FB38 

44 



34 


LD 

B.H 

FBC4 





119 




FB39 

4D 



35 


LD 

C.L 

FBC4 





120 

OUTSUB 



FB3A 

CD 

68 

FB 

36 


CALL BITREV 

FBC4 

1A 




121 


LD 

A.(DB) 

FB3D 

CD 

A4 

FB 

37 


CALL PRINTBR 

FBC5 

FE 

FF 



122 


CP 

$FF 

FB4 0 

11 

FI 

FB 

38 


LD 

DK,KAIGY020 

FBC7 

20 

01 



123 


JR 

NZ.OUT0 

FB4 3 

CD 

C4 

FB 

39 


CALL OUTSUB 

FBC9 

C9 




124 


RET 


FB46 

CD 

D5 

12 

40 


CALL CR 

FBCA 





125 

OUT0 



FB49 

ED 

4 B 

EB FB 

41 


LD 

BC,(GRAWORK) 

FBCA 

CD 

E2 

12 


126 


CALL 

ACCLPT 

FB4D 

CD 

D0 

FB 

42 


CALL DWADR 

FBCD 

13 




127 


INC 

DE 

FB50 

CD 

D0 

FB 

43 


CALL DWADR 

FBCE 

18 

F4 



128 


JR 

OUTSUB 

FBS3 

CD 

D0 

FB 

44 


CALL DWADR 

FBD0 





129 




FB56 

CD 

D0 

FB 

45 


CALL DWADR 

FBD0 





130 

DWADR 



FB59 

ED 

43 

EB FB 

46 


LD 

(GRAWORK),BC 

FBD0 

78 




131 


LD 

A, B 

FB5D 

El 



47 


POP 

HL 

FBD1 

E6 

38 



132 


AND 

$38 

FB5B 

25 



48 


DEC 

H 

FBD3 

FE 

38 



133 


CP 

$38 

FB5F 

20 

AE 


49 


JR 

NZ.MAIN 

FBD5 

3E 

08 



134 


LD 

A,8 

FB61 

1 1 

F4 

FB 

50 


LD 

DE,KAIGY06 

FBD7 

20 

07 



135 


JR 

NZ.UPADR1 

FB64 

CD 

C4 

FB 

51 


CALL OUTSUB 

FBD9 

E5 




136 


PUSH 

HL 

FB67 

C9 



52 


RET 


FBDA 

3E 

50 



137 


LD 

A,$50 

FB68 




5 3 




FBDC 

26 

C8 



138 


LD 

H, $C8 

FB68 




54 BITREV 



FBDE 

18 

04 



139 


JR 

UPADR2 

FB68 

26 

50 


55 


LD 

H, 80 

FBE0 





140 

UPADR1 



FB6A 

1 1 

F6 

FB 

56 


LD 

DE,PRINTBUF 

FBE0 

80 




14 1 


ADD 

A, B 

FB6D 




57 B1T0 



FBE1 

47 




142 


LD 

B, A 

FB6D 

E5 



58 


PUSH HL 

FBE2 

B7 




143 


OR 

A 

FB6E 

C5 



59 


PUSH BC 

FBE3 

C9 




144 


RET 


FB6F 

D5 



60 


PUSH DE 

FBE4 





145 

UPADR2 



FB70 

16 

04 


61 


LD 

D, 4 

FBE4 

6F 




146 


LD 

L, A 

FB72 

21 

ED 

FB 

62 


LD 

HL,VERBUF 

FBE5 

09 




147 


ADD 

HL, BC 

FB75 




63 BIT1 



FBE6 

4D 




148 


LD 

C,L 

FB75 

ED 

78 


64 


IN 

A, (C) 

FBE7 

44 




149 


LD 

B,H 

FB77 

2F 



65 


CPL 


FBE8 

El 




150 


POP 

HL 

FB78 

77 



66 


LD 

(HL),A 

FBE9 

B7 




151 


OR 

A 

FB79 

23 



67 


INC 

HL 

FBEA 

C9 




152 


RET 


FB7A 

CD 

D0 

FB 

68 


CALL DWADR 

FBEB 





153 




FB7D 

15 



69 


DEC 

D 

FBEB 





154 




FB7E 

20 

F5 


70 


JR 

NZ.BIT1 

FBEB 





155 

GRAWORK 


FB80 

D1 



71 


POP 

DE 

FBEB 

00 

00 



156 


DS 2 


FB8 1 

CD 

8B 

FB 

72 


CALL VERT 

FBED 





157 

VERBUF 



FB84 

Cl 



73 


POP 

BC 

FBED 

00 

00 

00 

00 

158 


DS 4 


FB85 

03 



74 


INC 

BC 

FBF1 





159 

KAIGYO20 


FB86 

El 



75 


POP 

HL 

FBF1 

IB 

33 

12 

FF 

160 


DB $1B,$33,$12,$FF 

FB87 

25 



76 


DEC 

H 

FBF5 





161 

KAIGY02 


FB88 

20 

E3 


77 


JR 

NZ.BIT0 

FBF5 

IB 

33 

02 

FF 

162 


DB $ 1B,$33,$02,$FF 

FB8A 

C9 



78 


RET 


FBF9 





163 

DATATRANS 


FB8B 




79 




FBF9 

IB 

25 

32 

02 80 FF 

164 


DB $IB,$25,$32,$02,$80,$FF 

FB8B 




80 VERT 



FBFF 





165 

KAIGY06 


FB8B 

21 

ED 

FB 

81 


LD 

HL,VERBUF 

FBFF 

IB 

36 

FF 


166 


DB $ 1B,$36,$FF 

FB8E 

OE 

08 


82 


LD 

C, 8 

FC02 





167 

RBSET 


. . . 

FB90 




83 VER0 



FC02 

IB 

63 

31 

OA FF 

168 


DB $1B,$63,$31,$0A,$FF 

FB90 

06 

04 


84 


LD 

B, 4 

FC07 





169 

PRINTBUF 


FB92 

E5 



85 


PUSI 

1 HL 









_1 


oOt')fto-F3f- 69 















X1/X1 turbo 


640X200 KvMWB 


JP-WCtl z? 

A-S 3 K- 


Ishii Michio 


2fl-§-© r SxTSU'fflU5j X-'fitz< foLbfrtltz r X I turbo T-J P-80 


t) K 3 fc°—lit 1 # k,h s ? j t 

#£ A., <J:*'ofcT-rte„ 

i?'y y°') >*jp- 

80-C'^ 7—Pa b°—%■ t S t l’5 , w 

< S/w Dm©- t 4 A-C'to 

3 Vjlif.UtiiT l' i> <Dti 't L 
ft0 0i:tt±Hf, *£ijg 
C)^S - t C-k'itzbM-Ctc 

i(S'Jv&«T'§> s J: 5 uLTAi Lfc (*©ft 
fc D*S*©J:b$a s CRT tiiito-CLio 
mif, BASICS®#t'8N'4S*A* 
L T, ■vS'i'ISglPS-^lt&SriSL tt t -7 
yk'LTi'i’fo BASIC 

ir&&A*r* tas47 7>f Atr-t 
-T'ltIL'Si’, £®f£, CLEAR&HF 
000 £^frt&, -t-**>£>-? S'C'tfSfl# 


imsihc, if0jfr'ixT<njLfc„ -;i 


(D X h 2 ) & Aft L, 774^ “CO 
PY”, X^r-hT K^XFOOOh, i>F7 
KV xF20 Ah"C’- fe — 7'L"C < i'o 

U 1 fi-#©x"-* £flx D a*. 4 
J'^OfeUtS-^l&Lfc* t, 8717^ 
©r"-*££ t *-C7 0 !I t: 

tflft LTi'ito - n4r25[UliDjlt8200 

6 bttt'-fo f¥l < SB 0 fti'ftfi, 

y-JxKMM) *#H»fL-C</w'»i'. 

» §> BASICSI5#£ 

n- K LTRUNt A(i', igjfgC-v S'S' 
iSSfl#4? n — I' L t x^ — I L 11" 0 iHS 
L T^'-Katf—«rtoT < 
ftTSl'o JP-80©C. t-T't* 5 ', 

EP^OPf Ii7 y ^ S' a > 7 4 — K C L T, 

-r s war h 7 9* y a -*'\i ur lt < kz 


l'o «■ ITfflffiOo&grBliffifflLfci'T' 
a'ji', 8>*©i»u*#i6ittai &*-*■« 
©t\ 

i: U b iSft*** Ht. : ntStt I i < ti <" 
i 7 o 


<##£#c> 

I/O 1984^ 2 r *7-''—K'3 t“— • 

10-700%-Isgo-Cj 

Oh!MZ19844p2^^- r Xl X-''°-7'774 
7 7X©ttt^J 


UXh2 7->7gJ , >7'J7l' 


F000 

CD 

6C 

F0 

16 

19 

D5 

CD 

A7 

: A1 

F008 

F0 

06 

04 

C5 

CD 

BC 

F0 

CD 

: 35 

F010 

BC 

F0 

3A 

B0 

FB 

B7 

28 

05 

: 78 

F018 

CD 

53 

F0 

18 

06 

CD 

61 

F0 

:4C 

F020 

CD 

BC 

F0 

CD 

BC 

F0 

CD 

61 

: 50 

F028 

F0 

Cl 

05 

20 

DE 

CD 

A7 

FI 

: 19 

F030 

3A 

B2 

FE 

B7 

28 

02 

18 

CE 

: B1 

F038 

D1 

2A 

80 

FE 

01 

B0 

3F 

B7 

: 20 

F040 

ED 

42 

22 

80 

FB 

15 

20 

BD 

:C1 

F048 

3E 

IB 

CD 

DC 

12 

3B 

40 

CD 

:6F 

F050 

DC 

12 

C9 

3A 

B2 

FB 

3C 

FE 

: DB 

F058 

08 

20 

02 

3E 

00 

32 

B2 

FB 

:4A 

F060 

C9 

2A 

80 

FE 

01 

B0 

07 

09 

: 32 

F068 

22 

80 

FB 

C9 

21 

00 

40 

22 

:EC 

F070 

80 

FE 

21 

90 

FE 

11 

83 

F0 

: B1 

F078 

1A 

77 

B7 

20 

02 

18 

08 

13 

:9D 

SUM: 

A2 

BC 

A1 

90 

91 

10 

31 

F4 

: 85 

F080 

23 

18 

F5 

04 

01 

02 

00 

01 

: 38 

F088 

03 

1A 

3E 

0F 

BD 

79 

21 

9D 

:8B 

F090 

F0 

7E 

B7 

20 

02 

18 

0A 

CD 

: 36 

F098 

DC 

12 

23 

18 

F4 

IB 

41 

08 

: 81 

F0A0 

00 

3E 

00 

32 

B2 

FB 

C9 

21 

:0A 

F0A8 

A0 

FE 

36 

80 

AF 

0E 

0A 

21 

:3C 

F0B0 

50 

F4 

06 

00 

77 

23 

10 

FC 

:F0 

F0B8 

0D 

20 

F7 

C9 

21 

50 

F4 

DD 

:2F 

F0C0 

21 

10 

F3 

IE 

04 

16 

50 

06 

:B2 

F0C8 

08 

DD 

7B 

80 

07 

DC 

E4 

F0 

:1A 

F0D0 

23 

05 

20 

F8 

DD 

23 

15 

20 

: 75 

F6D8 

BB 

ID 

20 

B9 

3A 

A0 

FB 

0F 

: FB 

F0B0 

32 

A0 

FE 

C9 

F5 

3A 

A0 

FB 

: 66 

F0B8 

86 

77 

FI 

C9 

DD 

21 

60 

F2 

:07 

F0F0 

16 

50 

21 

00 

40 

BD 

4B 

80 

: 7F 

F0F8 

FB 

BD 

78 

DD 

77 

B0 

03 

BD 

: 57 

SUM: 

F5 

75 

79 

34 

88 

DA 

D8 

10 

: 61 

F100 

43 

80 

FB 

0B 

09 

44 

4D 

BD 

: 53 

F108 

78 

DD 

77 

00 

21 

00 

40 

•9 

: 36 

File 

44 

4D 

BD 

78 

DD 

77 

50 

DD 

: 77 

F118 

23 

16 

20 

D6 

FD 

21 

B0 

F3 

:BF 

F120 

DD 

21 

60 

F2 

16 

50 

DD 

7B 

: 11 

F128 

B0 

DD 

B6 

00 

FD 

77 

B0 

DD 

: 44 

F130 

7B 

50 

2F 

FD 

A6 

B0 

FD 

77 

:C4 

F138 

Bt 

DD 

23 

FD 

23 

15 

26 

B6 

:EB 

F140 

DD 

21 

60 

F2 

FD 

21 

B0 

FS 

: 11 

F148 

16 

50 

DD 

7B 

B0 

DD 

B6 

06 

: 04 

F150 

DD 

B6 

50 

2F 

FD 

77 

50 

DD 

:B3 

F1S8 

23 

FD 

23 

15 

20 

BC 

DD 

21 

: 62 

F16t 

60 

F2 

FD 

21 

B0 

F3 

16 

50 

: 79 

F168 

DD 

7B 

Bt 

DD 

B6 

50 

FD 

77 

: 62 

F17t 

t0 

DD 

7E 

00 

2F 

FD 

A6 

00 

: 2D 

F178 

FD 

77 

00 

DD 

23 

FD 

23 

15 

: A9 

SUM: 

0A 

D2 

C5 

D4 

62 

06 

A6 

4B 

: CB 

F18t 

20 

B6 

DD 

21 

60 

F2 

FD 

21 

: 74 

F188 

10 

F3 

16 

50 

DD 

7B 

50 

DD 

:F1 

F19t 

B6 

00 

FD 

77 

00 

DD 

7B 

B0 

: 35 

Flt8 

2F 

FD 

A6 

60 

FD 

77 

00 

DD 

: 23 

FI At 

23 

FD 

23 

15 

20 

B6 

C9 

21 

: 48 

F1A8 

50 

F4 

FD 

21 

90 

FB 

3B 

IB 

: 49 

FIBt 

CD 

DC 

12 

3E 

72 

CD 

DC 

12 

: 26 

F1B8 

FD 

7B 

00 

CD 

DC 

12 

3E 

IB 

:8F 

FICt 

CD 

DC 

12 

3B 

2A 

CD 

DC 

12 

: DB 

F1C8 

3A 

C0 

FB 

CD 

DC 

12 

3B 

80 

: 71 

FIDS 

CD 

DC 

12 

3B 

02 

CD 

DC 

12 

: B6 

F1D8 

06 

08 

0B 

50 

7B 

CD 

DC 

12 

:A5 

FIBS 

23 

0D 

20 

F8 

05 

20 

F3 

FD 

:5D 

F1B8 

23 

FD 

7B 

FF 

B7 

28 

16 

3B 

: Dt 

F1FS 

0D 

CD 

DC 

12 

3E 

IB 

CD 

DC 

:CA 

F1F8 

12 

3B 

6A 

CD 

DC 

12 

3B 

18 

:CB 

SUM: 

91 

B6 

DC 

98 

94 

75 

D2 

D9 

:6F 

F209 

CD 

DC 

12 

18 

A9 

3B 

0D 

CD 

: 94 

F208 

DC 

12 

C9 






:B7 

SUM: 

A9 

BB 

DB 

18 

A9 

3B 

0D 

CD 

:4B 
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fcSI •7'' )V C?NLINE 


U * h 3 


- * <) * h 









0000 






1 

; COLOR COPY (For 

JP-80 ) 

F0B4 F5 


131 


PUSH 

AF 

0000 






2 


Written by 

Mitti 

F0E5 3A A0 

FE 

132 


LD 

A,(BTMK) 

0000 






3 


1986 - 2 

- 22 

F0B8 86 


133 


ADD 

A,(HL) 

0000 






4 


COLOR COPY 

(for JP-80) 

F0E9 77 


134 


LD 

(UL),A 

0000 






5 



Written by Mitii 

FOEA FI 


135 


POP 

AF 

0000 






6 




1986- 2 -22 

FOBB C9 


136 


RBT 


0000 






7 





FOBC 


137 (—- 

VRAM 

DATA 1 

RBAD k CHBNGB - 

0000 






8 





FOBC 


138 DATC: 




0000 






9 

VRAD 

EQU 

IFE80 ;VRAM AD 

F0EC DD 21 

60 F2 

139 


LD 

IX,RPOIN 

0000 






10 

COLR 

EQU 

$FE90 ;COLOR NO. 

FOFO 16 50 


140 


LD 

D, *50 

0000 






11 

BTMK 

EQU 

9FEA0 ;BIT MAKE WORK 

F0F2 21 00 

40 

141 LP1: 

LD 

HL,*4000 

0000 






12 

YSIZE 

BQU 

9FEB0 ; Y n* 4')V 

F0F5 BD 4B 

80 FB 

142 


LD 

BC,(VRAD) 

0000 






13 

YCOUN 

EQU 

IFEB2 ;LOOP COUNTBR 

F0F9 BD 78 


143 


IN 

A,(C) 

0000 






14 

XS1ZE 

BQU 

ifeco ;x 

FOFB DD 77 

BO 

144 


LD 

(IX4*B0),A 

0000 






15 

PROUT 

EQU 

*12DC ;IOCS PRINTER OUT 

F0FB 03 


145 


INC 

BC 

0000 






16 

CPOIN 

BQU 

$F3B0 ;RIBBON COLOR AD. 

FOFF BD 43 

80 FB 

146 


LD 

(VRAD),BC 

0000 






17 

RPOIN 

EQU 

• F260 (RBAD AD. POINTER 

F103 OB 


147 


DEC 

BC 

0000 






18 

ODTOP 

EQU 

• F4 50 ;OUT DATA TOP AD. 

F104 09 


148 


ADD 

HL.BC 

0000 






19 

; 




F105 44 4D 


149 


LD 

BC.HL 

0000 






20 

; 




F107 ED 78 


150 


IN 

A, (C) 

fooo 






21 



ORG 

• FO00 

F109 DD 77 

00 

151 


LD 

(1X4*00) , A 

fooo 






22 

; 




F10C 21 00 

40 

152 


LD 

HL,*4000 

FOOO 






23 





F10F 09 


163 


ADD 

HL.BC 

FOOO 

CD 

6C 

F0 



24 



CALL 

INIT 

F110 44 4D 


154 


LD 

BC.HL 

F003 

16 

19 




25 



LD 

D, • 19 

FI12 ED 78 


155 


IN 

A, (C) 

F005 






26 

;- 

MAIN 

— — 


FI14 DD 77 

50 

156 


LD 

(1X4*50),A 

FO05 






27 

LOOP: 




FI17 DD 23 


157 


INC 

IX 

FO05 

D5 





28 



PUSH 

DB 

FI 19 15 


158 


DBC 

D 

F006 

CD 

A7 

F0 



29 

LOOP 2 

CALL 

OUTC 

;OUT DATA CLBAR 

FI1A 20 D6 


159 


JR 

NZ.LP1 

F009 

06 

04 




30 



LD 

B, 4 

FUC 


160 (- 

COLOR 

DATA CHANGE - 

F00B 

C5 





31 

LOOP1 

PUSH 

BC 


F11C 


161 ; 




FOOC 

CD 

EC 

F0 



32 



CALL 

DATC (DATA RBAD k CHBNGB 

F11C FD 21 

BO F3 

162 


LD 

IY,CPOIN 

F0OF 

CD 

BC 

FO 



33 



CALL 

OUTM (OUT DATA MAKE 

F120 DD 21 

60 F2 

163 


LD 

IX,RPOIN 

F012 

3A 

B0 

FE 



34 



LD 

A,(YSIZB) 

FI 24 16 50 


164 


LD 

D, *50 

F015 

B7 

28 

05 CD 

53 

F0 18 

35 



IF A<>0 

THBN CALL COUNT:JR NDAT 

F126 DD 7E 

BO 

165 LP2 : 

LD 

A 

, <IX4*B0) 

FO 1C 

06 










F129 DD B6 

00 

166 


OR 

( 1X4*00 ) 

F01D 

CD 

61 

F0 



36 



CALL 

NLIN (NEXT LINE 

F12C FD 77 

B0 

167 


LD 

( IY4*B0 ) ,A 

F02O 

CD 

BC 

FO 



37 



CALL 

DATC 

F12F DD 7B 

50 

168 


LD 

A,(1X4*50) 

F023 

CD 

BC 

FO 



38 

NDAT : 

CALL 

OUTM 


F132 2F 


169 


CPL 


F026 

CD 

61 

F0 



39 



CALL 

NLIN 

F133 FD A6 

B0 

170 


AND 

< IY4*B0 ) 

F029 

Cl 





40 



POP 

BC 

F136 FD 77 

B0 

171 


LD 

( IY4*B0),A 

F02A 

05 





41 



DBC 

B 

F139 DD 23 


172 


INC 

IX 

F02B 

20 

DE 




42 



JR 

NZ.LOOPl 

F13B FD 23 


173 


INC 

IY 

F02D 

CD 

A7 

FI 



43 



CALL 

DATO 

F13D 15 


174 


DBC 

D 

F030 

3A 

B2 

FB 



44 



LD 

A , ( YCOUN > 

F13E 20 E6 


175 


JR 

NZ,LP2 

F033 

B7 

28 

02 18 

CE 


45 



IF A<>0 THEN JR LOOP2 

F140 DD 21 

60 F2 

176 


LD 

IX,RPOIN 

F038 

D1 





46 



POP 

DB 

FI44 FD 21 

BO F3 

177 


LD 

IY,CPOIN 

F039 

2A 

80 

FE 



47 



LD 

HL,(VRAD) 

F148 16 50 


178 


LD 

D, *50 

F03C 

01 

B0 

3F 



48 



LD 

BC.I3FB0 

F14A DD 7B 

BO 

179 LP3 : 

LD 

A, 

, (IX4*B0> 

F03F 

B7 

BD 

42 



49 



SUB 

HL,BC (MACRO 

F14D DD B6 

00 

180 


OR 

(1X4*00) 

F042 

22 

80 

FK 



50 



LD 

(VRAD),HL 

F150 DD B6 

50 

181 


OR 

(IX4-*50) 

F045 

15 





51 



DEC 

D 

F153 2F 


182 


CPL 


F046 

20 

BD 




52 



JR 

NZ,LOOP 

F154 FD 77 

60 

183 


LD 

(IY+050),A 

F048 

3B 

IB 




53 



LD 

A, • IB 

F157 DD 23 


184 


INC 

IX 

F04A 

CD 

DC 

12 



54 



CALL 

PROUT 

FI59 FD 23 


185 


INC 

IY 

F04D 

3B 

40 




55 



LD 

A, 140 

F15B 15 


186 


DBC 

D 

F04F 

CD 

DC 

12 



56 



CALL 

PROUT 

F15C 20 BC 


187 


JR 

NZ.LP3 

F052 

C9 





67 



RET 


F15B DD 21 

60 F2 

188 


LD 

IX,RPOIN 

F063 

3A 

B2 

FB 



58 

COUNT: 

LD 

A,(YCOUN) 

F162 FD 21 

BO F3 

189 


LD 

IY,CPOIN 

F056 

3C 





59 



INC A 


F166 16 50 


190 


LD 

D, *50 

F057 

PE 

08 

20 02 

3B 

00 

60 



IF A=8 

THBN LD A,0 

F168 DD 7B 

BO 

191 LP4: 

LD 

A, 

,(IX4*B0) 

F05D 

32 

B2 

FB 



61 



LD 

(YCOUN),A 

F16B DD B6 

50 

192 


OR 

(1X4*50) 

F060 

C9 





62 



RBT 


F16B FD 77 

00 

193 


LD 

(IY+*O0),A 

F061 






63 

;- 

NBXT LIMB - 


F171 DD 7B 

00 

194 


LD 

A,(1X4*00) 

F061 

2A 

80 

FB 



64 

NLIN: 

LD 

HL,(VRAD) 

F174 2P 


195 


CPL 


F064 

01 

BO 

07 



65 



LD 

BC,t7B0 

FI75 FD A6 

00 

196 


AND 

(IY4*00) 

F067 

09 





66 



ADD 

HL.BC 

F178 PD 77 

00 

197 


LD 

(IY4*0O),A 

F068 

22 

80 

FB 



67 



LD 

(VRAD),HL 

F17B DD 23 


196 


INC 

IX 

F06B 

C9 





68 



RET 


F17D FD 23 


199 


INC 

IY 

F06C 






69 

;- 

INIT 

_— 


F17F 15 


200 


DBC 

D 

F06C 






70 

INIT: 




F180 20 E6 


201 


JR 

NZ,LP4 

F06C 

21 

00 

40 



71 



LD 

HL,14000 (AD SET 

F182 DD 21 

60 P2 

202 


LD 

IX,RPOIN 

F06F 

22 

80 

FB 



72 



LD 

(VRAD),HL 

F186 FD 21 

10 F3 

203 


LD 

IY,CPOIN-*A0 

F072 

21 

90 

FB 



73 



LD 

HL,COLR 

F18A 16 50 


204 


LD 

D, *50 

F075 

11 

83 

FO 



74 



LD 

DB, CO 

F18C DD 7B 

50 

205 LP5: 

LD 

A, 

(1X4*50) 

P078 

1A 





75 

COl: 

LD 

A,(DB) 

F18F DD B6 

00 

206 


OR 

(1X4*00) 

F079 

77 





76 



LD 

(HL),A 

F192 FD 77 

00 

207 


LD 

(IY4*00),A 

F07A 

B7 

20 

02 18 

08 


77 



IF A=0 

THBN JR NCO 

F195 DD 7B 

BO 

208 


LD 

A,(IX4*B0) 

F07F 

13 





78 



INC 

DB 

F198 2F 


209 


CPL 


F080 

23 





79 



INC 

HL 

F199 FD A6 

00 

210 


AND 

(IY4*O0) 

F881 

18 

F5 




80 



JR 

COl 

F19C FD 77 

00 

211 


LD 

(IY4*00),A 

P083 

04 

01 

02 00 



81 

CO: 

DB 

4:1:! 

2:0 (RIBBON COLOR 

F19F DD 23 


212 


INC 

IX 

F087 

01 

03 

1A 



82 

NCO: 

LD 

BC,91AO3 

F1A1 FD 23 


213 


INC 

IY 

F08A 

3B 

OF 




83 



LD 

A,OF 

F1A3 15 


214 


DBC 

D 

P08C 

ED 

79 




84 



OUT 

(C) , A 

F1A4 20 E6 


215 


JR 

NZ.LP5 

F08B 

21 

9D 

FO 



85 



LD 

HL.COM 

F1A6 C9 


216 


RBT 


F091 

7B 





86 

01: 

LD 

A, (HL) 

F1A7 


217 (- 

PRINTER DATA OUT - 

F092 

B7 

20 

02 18 

OA 


87 



IF A=0 

THBN JR NCOM 

F1A7 


218 DATO 




F097 

CD 

DC 

12 



88 



CALL 

PROUT 

P1A7 21 50 

F4 

219 


LD 

HL,ODTOP 

F09A 

23 





89 



INC 

HL 

F1AA FD 21 

90 FE 

220 


LD 

IY.COLB 

F09B 

18 

F4 




90 



JR 

01 

P1AE 3E IB 


221 LI: 

LD 

A, 

* IB 

F09D 

IB 

41 

08 00 



91 

COM: 

DB 

• IB: i 

141:8:0 

F1B0 CD DC 

12 

222 


CALL 

PROUT 

F0A1 

3B 

00 




92 

NCOM: 

LD 

A, 0 


F1B3 3B 72 


223 


LD 

A,*72 

F0A3 

32 

B2 

FB 



93 



LD 

(YCOUN),A 

F1B5 CD DC 

12 

224 


CALL 

PROUT 

F0A6 

C9 





94 



RBT 


F1B8 FD 7E 

00 

225 


LD 

A, (IYt*00) 

F0A7 






95 

;- 

OUT DATA BREA CLBAR - 

F1BB CD DC 

12 

226 


CALL 

PROUT 

P0A7 

21 

A0 

FB 



96 

OUTC: 

LD 

HL,BTMK 

FIBE 3B IB 


227 


LD 

A, * IB 

POAA 

36 

80 




97 



LD 

(HL),*80 

F1C0 CD DC 

12 

228 


CALL 

PROUT 

FOAC 

AF 





98 



XOR 

A (OUT DATA 

P1C3 3E 2A 


229 


LD 

A, *2A 

FOAD 

0E 

0A 




99 



LD 

C,*0A ( BREA DLBRA 

F1C5 CD DC 

12 

230 


CALL 

PROUT 

FOAF 

21 

50 

F4 



100 



LD 

HL,ODTOP 

F1C8 3A CO 

FB 

231 


LD 

A,(XSIZE) 

F0B2 

06 

00 




101 

LOP2: 

LD 

B, 0 


F1CB CD DC 

12 

232 


CALL 

PROUT 

F0B4 

77 





102 

LOP1: 

LD 

(HL) 

.A 

F1CB 3E 80 


233 


LD 

A,*80 

F0B5 

23 





103 



INC 

HL 

FIDO CD DC 

12 

234 


CALL 

PROUT 

F0B6 

10 

PC 




104 



DJNZ 

LOP1 

F1D3 3B 02 


235 


LD 

A,2 

F0B8 

OD 





105 



DBC 

C 

F1D5 CD DC 

12 

236 


CALL 

PROUT 

F0B9 

20 

F7 




106 



JR 

NZ,LOP2 

F1D8 06 08 


237 


LD 

B, 8 

FOBB 

C9 





107 



RBT 


FIDA OB 50 


238 L3: 

LD 

c, 

• 50 

FOBC 






108 

;- 

OUT DATA MAKB 

— 

F1DC 7B 


239 L2: 

LD 

A, 

(HL) 

FOBC 






109 

OUTM: 




F1DD CD DC 

12 

240 


CALL 

PROUT 

FOBC 

21 

50 

P4 



110 



LD 

HL,ODTOP 

F1E0 23 


241 


INC 

HL 

FOBF 

DD 

21 

10 F3 



111 



LD 

IX,CPOIN-*A0 

F1B1 OD 


242 


DBC 

C 

F0C3 

IB 

04 




112 



LD 

B, 4 

F1B2 20 F8 


243 


JR 

NZ.L2 

F0C5 

16 

50 




113 

LOP5: 

LD 

D,$50 

F1E4 05 


244 


DBC 

B 

F0C7 

06 

08 




114 

LOP4: 

LD 

B, 8 


F1B5 20 F3 


245 


JR 

NZ,L3 

F0C9 

DD 

7B 

00 



115 



LD 

A, (1X4-000) 

F1B7 FD 23 


246 


INC 

IY 

POCC 

07 





116 

LOP3: 

RLCA 



F1B9 FD 7B 

FF 

247 


LD 

A,(IY4*FF) 

FOCD 

DC 

E4 

FO 



117 



CALL 

C.DATAY 

F1BC B7 


248 


OR 

A 

FODO 

23 





118 



INC 

HL 

F1BD 28 16 


249 


JR 

Z.CRC 

F0D1 

05 





119 



DBC 

B 

F1BF 3B OD 


250 


LD 

A, *D 

F0D2 

20 

F8 




120 



JR 

NZ.LOP3 

F1F1 CD DC 

12 

251 


CALL 

PROUT 

F0D4 

DD 

23 




121 



INC 

IX 

F1F4 3E IB 


252 


LD 

A, * IB 

F0D6 

15 





122 



DBC 

D 

F1F6 CD DC 

12 

253 


CALL 

PROUT 

F0D7 

20 

EE 




123 



JR 

NZ,LOP4 

F1F9 3B 6A 


254 


LD 

A, *6A 

F0D9 

ID 





124 



DBC 

B 

F1FB CD DC 

12 

255 


CALL 

PROUT 

FODA 

20 

E9 




125 



JR 

NZ,LOPS 

FIFE 3B 18 


256 


LD 

A,24 

FODC 

3A 

A0 

FE 



126 



LD 

A,(BTMK) 

F200 CD DC 

12 

257 


CALL 

PROUT 

FODF 

0F 





127 



RRCA 


F203 18 A9 


258 


JR 

LI 

F0B0 

32 

AO 

FE 



128 



LD 

(BTMK),A 

F205 3E 0D 


259 CRC: 

LD 

A, 

*D 

F0E3 

C9 





129 



RET 


F207 CD DC 

12 

260 


CALL 

PROUT 

F0B4 






130 

DATAY: 




F20A C9 


261 


RBT 



jp-80T'*5— /n— tr— 7i 
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— diV\°x ij)v (Turbo Pascal) 4tdiAt Z 
©fcBSi'iSfcfUto 4CLAWord 
Star© 7 y P't ^.7 > P -t — P t a 

-f n/lis-y* A tlDIS© Pascal 3 >*<A 5f 
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“list.c” LtZL, ikcoxir.ff 

*>ii/LX'3 y^M ^ • y 7 7 ?tItxis'x-— 

x 4 !) 1 1 * s f & _t* s y it, 

CP/M-86, MS-DOS i IWJL' 

y — X'C'OK'C'to C= xliCompu 

ter Innovation}±©Optirnizing-C86(MS- 
DOS), Cl-C86 (CP/M-86) 

A*o ftb©^y^'M 7 41® ? li-S-ISBIOS 3 

-ii'-w* 5 '* y * to 

4 t IIS’, MZ-5500/6500©BIOSf#4 


“IOCS” 4*"f C/tt, 14*©MS:IS,Optimizi 
ng-C86(CI-C86) "C IS “sysint” X t * s , Lat 
tice-CX'IS “int86” i 4 y, SA_h©HA f 
$Hto tf#4©C 3 y'M 70y-i 
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-ns, CP/M-86 t MS-DOS t X/felCDBI 
OS^Iffio-Ct'S^-rto CP/M-86©3. — 
t-©«SAI>£y>LTff4iiA.-r'< 4'$t\ 


3 7L 

• ') >775 : & 

(l)MS-DOS, Optimizing-C86<7)i§^ 

A >CC 1 

LIST 

A>CC 2 

LIST 

A >CC 3 

LIST 

A >CC 4 

LIST 

A >LINK 

LIST, , , C86S2S 

Z nx* “LIST.EXE” fiHfe b tl Z>, 


(21CP/M -86, 

Cl-C86(7)il^ 

A >CC 1 

LIST 

A >CC 2 

LIST 

A >CC 3 

LIST 

A >CL LIST, CLIB 

ctiT" 

LIST COM" At^ftSo 
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si s-yyy7^<7)*nt> 


7’o >7es zfy— t>x 


#define LPI8-LF 
#define GRAPHIC-LF 

# define HALF-LF 

# define IMAGE640 

# define IMAGE960 
#define PIN-MULT 
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&fi:?°y y^u^ts -/ > x b — 
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a — jvf*— T < Af$ l'o 4 

to, X1 ffl7° V > ft 0) CZ-800P t CZ-8PD 

2s«is]cx"-^-r'OKr'to y 4 

f> Cffii'^T < 45 

5 t fcJBl’**. 

I 3^EP«iJ073^ 

MZ-5500/6500 CO (: I *]M $ H X l' 5 

g!?ROMC0T*-*fcM‘*a5LTX o y 
cusbit-r'-ra 5 , ;X'coj: 7 4f-ni-c'ffi.' 
it. Hftwt: 

/n/5 a HI 5 5 IS©##C 6 4 5 t.g.i' 
i t ©fl¥ L < !£ L T to ^ 3: Li ?<> 
x’ , ij>5'3>bn — 

CT^irco «t 7 C, OS±-rcOBDOS5r^L 
4x°y a y b a —;i/ji, T-yv^fctb 

toc07rt^tl,4 LTffi'i to 
0, 7°'/ y ^cfP^t 5 cii, ii&cor"^ 
xyyr / f^t|SlL'J:'7{-77'f^4't‘ — 
/> L-CT'-^t^liiiti-CO-r'to 77/ 
^£1*, CP/M-86, MS-DOS tt>i:“PRS:” 
-Tt. 5 CO PIS, 

It, BDOSg#i4lt3y^'M 7 4 £©& 
JS^C t 6 i 

tco-r^jt^s-rto ? o y > * cm i x 

A t i' 7 7*—ft fc'&h 7 t L 4C 6 ti't'b 
C> t\ B t l' ? x"- ft S tl 5 MHgtt 

* s *5C0tT'to ElTr-M^Lit. 

(1) CRTii«- b" 

)!1=*- b" O ^ 7 b JIS 3 - b"fcg 

05 tx.x-!r — X°|y — -)->X-l-JIS3 — 

Ki:^'^lT7°y 77C1 1 ) &b\ 

/7 75-bO ±ie©^«s?rfffc4C'„ 
(CRT(Hiifijco— K!xS e* J , y°') > ft * 
> b o —;m: 6 5) 

(2) C 3 7-t'COXT d ^*-7 0 to©* 

— K 

ASCII*— K'O “¥n" (3dT)to<tcb 
E0F(33> Ktx'xr tCMT5£'& 
3?lT7o 

binary*— K'O _t.SS<70 It t?4C'„ 
(# y° n y" 7 a -f It X r f i'' It T ^ * 
binary*— K' X’Wl ? ) 

(3) C 3 y-'f'f fX'cor'—ftcDS! 

8S#*«5 4*, X^^KcltO ~FFh i 


y°\) y^IL-7 1 ^ 'Jf^f 


... Printer utility .. 

Bit image hardcopy of the text file in the disk. 

The header file of ‘STDIO.H" is required when cowpiling. 
How to compile in 0ptiwizing-C86 as follows; 

>ccl 111 
>e c 2 I I I 
>c c 3 I I I 
>cc4 I I I 

>1 ink I |l,,,c8Bs2s. Iib 


*/ 

^include 'stdio.h' 


If d e f i n e 
Ifdef ine 
Ifdef ine 
If d e f ine 
If d e f i n e 

LF 

CLS 

HOME 

KAN J1_ MODE 
GRAPH.HODE 

" Y 0 1 2 " 

' Y0 33 [2 J ' 

* Y0 36 ' 

' Y0 33) 0' 

' Y0 33) r 

/* 

for 

CP/H-8B->"Y 0 33) 3" 

*/ 

Jfde f i ne 

END.C0DE 

0x 1 a 

/* 

EOF 

in stdio.h is -1 

*/ 

If d e f i n e 

If i f def 
Ifdef ine 

P_CZ80 0 1 

P CZ800 
LPI6.LF 

/* P_CZ800,P_1P07,. 

'Y0 336' 

..etc 

/* 

*/ 

ESC + 

' 6 ' 

*/ 

Ifdef ine 

GRAPHIC LF 

'V 0 3 3**9Y 017' 

/* 

ESC + 

' * 9 * + n 1 (-15) 

*/ 

If de f i ne 

HALF.LF 

'Y 0 33XX9Y0 01" 

/* 

ESC + 

X9'+nl (-1) 

*/ 


Ifdefine IMAGE640 
ifdefine IMAGE960 


ifdefine PIN.MULT 7- 
# e n d i f 


'¥033BY033**2¥002¥200' 

/# ESC+'R'+ESC+'*2'+nl (-2)+n2(-128) */ 
'¥033EY033*%2Y803Y300' 

/* ESC + ' E ' + ESC +'*2' + n1 (-3)+ n 2 (-192) */ 
/# pin No. of LPT - 7-scr_ch */ 


if i fdef P_ 1 P07 

ifdefine LPI6.LF 'Y033Y002V022 
ifdefine GRAPHIC.LF 'Y033Y020Y017 
ifdefine HALF.LF *Y033Y020Y002 
ifdefine IHAGE640 'Y033Y030Y200Y002' /* ESC +24+n2 (-128)+n1 (-2) 

#de f i ne 1HAGE960 *¥017V033V030Y300V003' 

/* 25 (condenced char) + 

ESC+24 + n2 (-192) +nl (-3) 
Adeline PIN.HULT 0+ /* pin No. of LPT - scr.ch 

Itend i f 


/* ESC + 2 (LPI16)+18 (norwaI char) */ 
/* ESC+16 + nl (-15) */ 

/* ESC+16 + nl (-2) ;2/288 inch LF %/ 

%/ 


*/ 

*/ 


/* Store segment of IOCS 


■ a i n () 

{ 

uns i gned int io.seg; 
unsigned char fgetcQ; 
unsigned char dummy; 
unsigned char data [2] [96 1 ] ; /* Bit image data 

unsigned char lo_byte,hi_byte; /* shift J4IS code 


*/ 


/* shi ft — JIS requires unsigned char #/ 


i n t mode; 
i nt mai.coIumi 
int eolum - 1; 
int eh.width; 
int 1f_Iength : 
int i • 

char f i I e.name [13] ; 

FILE *fp,«f lst,*fopen () ! 


*/ 

t/ 


*/ 

*/ 


/* l-80coI urns , 2-120colums 
/* max.coIum-88 | 120 


/* character width 1 or 2 */ 

/* line feed length (1/144') */ 


/% Bit Image data initialize 


/* Get 1/0 segment for IOCS eall */ 


for (i-0; i<-960 ; i+ + ) { 

data [ 0] [i]-05 
d a t a [ 1 ] [ i ] - 0 : 

} 

io_seg - ioseg(); 

ask('¥nlnput file name ->','*s',fi1e_name) ; 

if((fp-fopen(fiIe_name,'rb*))--0) return! 
pr i ntf ('YnF i 1 e name Y'*sY' has been opened.',fiIe_name) ; 

a s k (' YnHo d e [ 1 - 8 0 c o 1 um, 2-80 c o I um (c on d e n c e d) , 3-120colum, 4 - 1 2 0 (c o n d e n c e d) ]-> ' 

,'*d',&mode)! 

if(mode--l || mode--2) max_co1um-80; 

else mai.eolum-120; 

ask ('VnLine Feed I ength (unit- 1/144inch) ->' , '*d',& 1f_Iengtb) l 

ask('YnSet ready the printer, and depress CR”,'*c',4dummy) ! 

i f ( (fIst-fopen (*PRN:','wb*))--0) ( 

printf ('Dev i ce offlineVn'); 
return! 

) 


print! (KANJI.MODE) ; 


/* 

set CRT as KANJI 

mode 

*/ 

print! (CLS) • 


/* 

elear screen 


*/ 

eolum - 1• 


/* 

initial value of 

eolum - 1 

*/ 

hi.byte-fgete(fp); 






do { 






if(hi_byte -- 0 x 0 d) { 








/* 

if current data 

- CR+LF 

*/ 

hi.byte - fgetc (fp) 5 


/« 

skip LF code 


*/ 

lo.byte - (hi .byte - 

0x20) ; 





ch width - max.col um 

} 

- eolum 


/* goto flush: 


*/ 

else if (ifkan (hi.byte) 

- 0 ) { 

/* 

if current data 

- ANK 

*/ 


ch.width - 1; 

lo.byte - 0; 
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else { /* if current data - KANJI */ 

Io_byte-fgete (fp) ; /* get loner byte of shift J I S */ 

ch.aidth - 2; 

} 

get_font(io_seg,hi_byte, lo.byte,ch.aidth,coIui,node,data) ; 
if((colua +- ch.width) >- aax.colua-1) { 
flush (fist,aode,aax.eolua,data) • 

I i ne_ feed (fist,I f_ I ength) ; 

coiua - 1; /* reset colua No. to 1 */ 

} 

} ahile((hi_byte-fgete (fp)) !- END_C0DE) ; 

print f ('Vn') ; 
printf (KANJI.MODE) ; 

fprintf (f!st,LPI6_LF) • /* reset printer */ 

fclose (fIst) ; 
f c I os e (f p) : 

) 

/♦ --- */ 

get.font (io_seg,hi_byte, lo.byte,ch.aidth,colua,aode,p.data) 
unsigned int io.s eg• 
unsigned char h i _byte,Io_byte; 
int ch_«idth,coIua,aode; 
unsigned ehar p _ d a t a[2) [961] ; 

< 

unsigned char b_font,b_font1; 
int i,j,k,bit_colua; 

static unsigned char pon2 [8]-{1, 2, 4,8, 16, 32, 64, 128} ; 

b i t _ c o I u a - (colua - 1)*8; 

printf (KANJI.MODE) 5 
printf (HOME) l 

printf ('Xc*c',hi_byte,lo.byte) ; 
for ( i-0; i < ch_aidth*8; i+ + ) 

if(aode--l || aode--3) /* vartically aide node */ 

for( j-0 S j < 2 5 j+ + ) { 

b_font - 0; 
for (k-0; k < 8; k + +) 
i f (point (i, j*8+k, io seg) !-8) 
b.font-b.font + pow2[PIN_MULT k]S 

p.data [ j] [bit_eoIua + i] - b.font; 

} 

else { /* vertically condenced aode a/ 

b_font -05 
b_ font 1-1 * 

for (j-05 j < 85 j + + ) { 

i f (po i n t (i , 2* j, i o_ seg) !-0) 
b.font -b.font + P on2[PIN.MULT j]5 
i f (po i n t (i, 2* j + 1, i o_seg) 1-0) 
b_fontl-b_fontl+ poa2[PIN.MULT j] 5 

} 

p_data[0] [bit.colua + i] - b.font; 
p data[lj [bit.colua + i] - b.fontl; 

) 


/»- »/ 

flush(fist,aode,aax.coI ua, p data) 

FILE eflst; 

int aode,aax_eolua5 

unsigned ehar p _ d a t a [2] [96 1 ] 5 

{ 

int i ,j 5 

printf (GRAPH MODE) 5 /a In order to set printer as GRAPH.MODE, */ 

/a set CRT as GRAPH.MODE ! */ 

i f (ao d e - - 1 | | aode--2) 

fprintf(fist,IMAGE640) 5 
else 

fprintf (fist,IMAGE960) 5 

for (j-05 j<-aax_co I ua*8-15 j+ + ) 
prtchr (p.data [0] [j] ) 5 

i f (aode--l | | aode--S) { 
fprintf (fist,GRAPH IC.LF) 5 
fprintf (fIs t,LF) 5 
) 

else { 

fprintf (fist,HALF.LF) 5 
fprintf ( f I s t, LF) 5 
} 

if (aode--1 | I aode--2) 
fprintf (fist,I MAGE 6 4 0) 5 
else 

fprintf (fist,IMAGE960) 5 

for (j-0 5 j<-aax_coIua*8-l5 j+ + ) 
prtchr (p.data [1] [j] ) 5 

fprintf (fist,GRAPHIC.LF) 5 
fprintf (f1st,LF) 5 
for (j-0; j< — 960 ; j ++) { 

p.data [0] [j] -05 
p.data [l] i j]-0 5 

} 

/* - */ 

line f e e d ( f 1 s t, I f _ I e n g t h) 

FILE aflst; 
int If length; 

{ 

int i ; 
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% BIOSU-MXfrfc 


MZ-5500/6500"T liCP/M-86fc MS-DOS 
t T'lJ L h, BIOS * 1£ffl L Tfe 0 , 

“int80” 

tfftil-z i to 

#XSSi>'J:i77 0 n7"7Ay-xy x h£# 
M l x i< : ti:-LT, C c. 
o t'x A-T'^Pf L T i4 1 > + 

7»y 7<Dfa^Ufm*%ilXis { Zir. 

Li to 

CX w i ?X t C 7 7 > t :7 a VNaOfilfc A 
ft, “int80” k'Wxrth o 

JWM! 

(1) GETIOSEG (7 7 7 7=y 3>Na=l) 

fgjj§ : 7®-tW> 

(2) PRTCHR (777t^g7Na = 110) 
®)J l> : 7° >/ 7 ft CM L X D L u ^*X t 
©l*I$Sr£0i ifb^tio 

(3) GPOINT (7 7 71 iy g >No. = 97) 

IMS : Mz&<D?*7 7 ^ -7 701 

® ® 1*1 ^ !% & iH t o 

(4) GPSET (7777iyg7Na = 91) 

f#Jj ^ : 7" 7 7 4 y 7 @®©^b5e$ t-t' 

.^cffiiSt So 

% SS&tDDlZ 

TW-r t tr m n a n * t 38« $ ft, mm 

(;*^*>^Ci.'J:9-r't*'‘MS-D0S7)#of 
16b - '-> h -7-7>ji7— 7°n, r"—X, 
M?£3£*, i-Hf'-CDfrffit 
gji't Olit. MZ-5500/6500©Mul 
tiplan t ?§ro(-c: tttL, w ft*‘ 
c.0&Rt:#Iff Lfci’ USft. 


fpr intf (flst,HALF_LF) ; 
for (i-1; i<-I f_Iength; i+ + ) 
fprintf (f I s t, LF) ; 

} 


/*-------*/ 

ftdefine BDOS 224 
# d e f i n e IOCS 88 

ioseg () 

{ 

unsigned char veei /* interrupt vector to execute */ 

/* register varibles */ 

/* for system i nterrupt (IOCS call) */ 

struct regval { 

unsigned int ax, bx, cx, dx,s i ,d i ,ds,es; 

) 5 

struct regva I sreg; 
struet regval rreg! 

/* 

GETIOSEG . function number (in CX.reg) - 1 

. get the value of segaent of 

coaaon parameter area and return it 

*/ 

sreg.cx - 1; 

sysint (I0CS,&sreg,&rreg) » 
return (rreg. ax) ; 

} 


/* 


POINT . function number - 97 

. get dot information on the sereen 

usage of poke funetion. 

pokew (off set,segment,»ord_vaIue); 

*/ 

point (x, y,i©_seg) 
int x,y» 

unsigned int io_ s eg; 

{ 

unsigned int gp; 
struct regval { 

unsigned int ax,bx,ex,dx,si*di,ds,es; 

M 

struet regval sreg; 
struet regval rreg! 

/* aboves are preparation to use 'sysint' */ 
sreg.ex - 97; /# cx - iocs call funetion number 97 */ 

/* PI - not in use */ 

poke* (2, io_seg,x) ; /* P1 - x axis point */ 

poke* (4, i o_seg,y) ; /* P2 - y axis point */ 

sysint (IOCS,&sreg,Arreg) : 

gp - peek (6,io.seg); /* PS - information on the sereen */ 

return (gp) ; 

} 

/*- 

PRTCHR (asc i i .code)-Out put an ASCII eode to the printer 

mitb out any processing. 

Funetion*(CX r e g) - 111 (d e e i me 1) 

*/ 

prtehr (asc i i) 
uns i gned char ascii; 

{ 

struet regval { 

unsigned int ax,bx,cx,dx,si,di,ds,es; 

}: 

struct regval sreg; 
struct regval rreg; 

sreg.cx - 111: 

sreg.dx - ascii; 

sysint (IOCS,Asreg,&rreg) i 

) 

/*----- 

KANJI or ANK check 

*/ 

# d e fin e KlS 1x81 
ffdef ine K1E 8x9f 
ftdefine K2S 8xe8 
^define K2E Ixfc 

i f kan (c) 

unsigned char e; 

i f (((K 1 S<-e) AA (c<-K 1B) ) | | ( (K2S<-c) *4 (e<-K2E) ) ) 
return (1) : 
else 

return (I) ; 

} 


char »p_disp,*p_using; 
uns i gned pointer: 

< 

printf (p _ disp) ; 

scanf (p u s i n g, p o i n t e r) ; 

} 
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TO >\ ; -f 2 : tt S 

( LOCAL " #] Its tt * • «? T # » ” X t U ” (S tf "Jt C I ‘IT C! ) 

MAKE "CTM#« < r*T 1 :tt» ) 

MAKE "»7tt* ( * * T 3 : tt » ) 

MAKE "It l; [ J 

MAKE " « # ( LIST ( LIST : ft & # J& ) ) 

LABEL " ft ig L 

IF : ft fit = [ ] [ GO "ft © jg f U 1 

MAKE "It D 1 ( FIRST : ft # ) 

MAKE " £ ft £ Gfl ( LAST : 1 t 1/ 1 ) 

MAKE " £ ft ft : £ ft 
LABEL " S PH 

IF MEMBERP : ft 7 tt & : £ ft [ GO " ft 9 1 

MAKE "ft D2 ft it : ig T b 1 : £ ft 

MAKE " jg t U ( SENTENCE : | t t :|t D 2 ) 

MAKE " tf BUTFIRST : ft # 

GO " ft jg b 
LABEL " ft © ig t U 

& n 

MAKE " ft tf : ig f b 
MAKE " jg f b [ 1 

go - m ig b 

LABEL "& 0 
gi s 2 

$ 5 ( LPUT : 8 7 tt J® : ig ? b 1 ) 

TYPE l &l(Dm*$lt)$?fr ( Y/N ) J 
PRINT l ] 

IF READCHAR = "N l STOP J 
MAKE " £ ft HQ® : 8 7 tt ® : £ ft 
go n ffl 

END 

to m b * # :'m 

IF : y X h = l ] [ OUTPUT "TRUE ] 

IF ( COUNT : ') X h> ) = 1 [ OUTPUT "TRUE ] 

IF ( FIRST : 'j X h ) = ( ITEM 2 : y X h ) [ OUTPUT ft l; £ * ( BUTFIRST : i; X h ) 

] 

OUTPUT "FALSE 
END 

TO ffi © # !» 

( LOCAL " » ”gl) ) 

MAKE " ft ( FIRST : fft © tf Jg ) 

MAKE " ft n ( BUTFIRST : jjM © ^ ft ) 

IF : ft = 1 [ OUTPUT ( LIST ( FPUT "2 :$ 0 ) ( FPUT "3 :ft 0 ) ) ] 

IF :ft = 2 l OUTPUT ( LIST ( FPUT "3 :$ 0 ) ( FPUT "1 :$ 0 ) ) ) 

OUTPUT ( LIST ( FPUT "1 : $ 0 ) ( FPUT "2 : $ 0 ) ) 

END 

TO Jg ft : h5 <D tt fg 

( LOCAL " ft 0 " a & " Jg ft 1 " % ft 2 H flfi « IB ) 

IF ft i;|* : H?J CO tt IB ( OUTPUT : BU <7) 4^ I© 1 

MAKE " ft f* ( LAST : gj <J) tt )B ) 

MAKE "glj ( BUTLAST : hu © tt ® ) 

MAKE " Jg ft 1 ( jg ft : n 0 ) 

MAKE " jg ft 2 l 1 
LABEL " £ ig L 

IF : g ft 1 = ( J l GO "ft tj j 

MAKE " g ft 2 FPUT ( LPUT : ft ft ( FIRST : Jg ft 1 ) ) : £ ft 2 

MAKE " g ft 1 BUTFIRST : g ft 1 
GO " |f jg L 
LABEL " ift 0 

IF NOT ( ft t> g tg : 8 0 ) [ OUTPUT : g ft 2 ] 

MAKE " fffi tt IB LPUT ( 6 - ( FIRST : ft 0 ) - : ft % ) : « 0 

OUTPUT FPUT : ffi tt )B : £ ft 2 

END 

TO ? ^ T : ft $ 

IF :ft $ < 1 l OUTPUT [ J ] 

OUTPUT FPUT : g ft ( : g ft ( - 1 ) ) 

END 

TO ft jg : *> t (D jg : j£ Ml 
( LOCAL "JJtLV'jM "^^1 ) 

MAKE " « L l' ig l 1 
LABEL " Jg jg L 

IF : ft Mi = [ 1 l OUTPUT : ft L V* ig 1 

MAKE " f* M 1 ( FIRST : £ ft ) 

MAKE " £ Mi ( BUTFIRST : £ iff ) 

IF MEMBERP : £ ft 1 :4>£<OitlGO"JgigL] 

MAKE " ft L l' ig LPUT ( LPUT :&ftl :sbfc©jg):ftt^ig 

GO " |g jg L 

END 

TO ft £ : « ft : V X h 

IF : 'J X h = 1 1 I OUTPUT [ ] ] 

IF ( FIRST : «J X h ) = : g ft [ OUTPUT ( BUTFIRST : X h ) J 

OUTPUT FPUT ( FIRST : 'J X h ) ( g'J Rfc : gft ( BUTFIRST : U X h ) ) 

END 

TO 5J : £ ft 
( LOCAL "OK "£ ft l ) 

MAKE "OK I I 
LABEL " ft ig L 

IF :£ ft = [ II OUTPUT :OK ] 

MAKE " £ ft 1 ( FIRST : £ ft ) 

IF & tt :£ ft 1 I MAKE "OK ( FPUT :£ft l :OK ) | 

MAKE ”£ ft BUTFIRST :£ft 

GO ” ft jg L 

END 

TO ft (4 : £ ft 

IF ( COUNT :£ ft ) = 1 ( OUTPUT "TRUE 1 
IF ( ITEM 2 : £ ft ) = 2 l OUTPUT "FALSE J 
OUTPUT "TRUE 
END 
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TO H |R :lti; 

( LOCAL " fc £ " R * " ft 1 " ft 2 ) 

LABEL '• <* jg L 

IF ( COUNT : jg f U ) = 1 ( STOP ] 

MAKE "tt ( FIRST : jg -f fc ) 

MAKE ” £ £ ( BUTFIRST : if f U ) 

MAKE " $> t ( FIRST : & £ ) 

MAKE - R £ £ : h t : t t 

MAKE "ft 1 ( WORD "ft ( ITEM : R £ : t £ ) ) 

MAKE - ft 2 < WORD " ft ( ITEM : R « : £ t > ) 

MAKE M R fi ( WORD " R £ : R £ ) 

PRINT ( SENTENCE : R £ " * : ft 1 " 6 : ft 2 l ^ li'Ut 1 ) 

MAKE " jg t C < BUTFIRST : jg f U ) 

00 ig L 
END 

TO £ : £ t : * £ 

LOCAL "$ £ 

MAKE " g £ 1 
LABEL " g jg L 

IF :h t = I 1 I OUTPUT :£ £ ] 

IF : t t - I 1 [ OUTPUT :g £ ] 

IF NOT ( FIRST : & £ ) = ( FIRST : £ ) [ OUTPUT : £ £ ] 

MAKE "fit ( BUTFIRST :& t ) 

MAKE ( BUTFIRST : t ) 

MAKE " g £ : g £ + 1 

GO M « jg L 

END 

TO g 

PRINT t ft o t) o tz ! H ^ jg O J 
END 

TO «g2 

PRINT [ ^ m Z •€■ fc J 

END 
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4 Dimension Graphics 
( Paint modeling ) 15 Jan 1985 

by M.kuwano & S.obara 


d e f i n t T 

def dbl C,P, S,R,X,Y,Z 
gosub 1760 


Informations of variables s- 

STP' is step of rotation ( Degree of 
'Tn' is Angle (degree - Tn/STP ♦ pai) 
' Sn ' is sin(Tn) 

' Cn ' is cos (Tn) 


step is pai/STP ) 


STP-48 
Tl-0: Sl-s 
T2-0:S2-s 
T3-0:S3-s 
T4-0:S4-s 
T5-0 : S5-s 


n (p a i *T 1/STP) : 
n (pai*T2/STP) s 
n (pai*T3/STP) : 
n (p ai*T4/STP) : 
in (pai*T5/STP) : 
T6-0:S6-sin (pai*T6/STP) : 
goto 1370 

A$-inkey$:A-asc (A$) : i f A 
if A-KY (0) then Tl-Tl-1 
if A-KY (1) then Tl-Tl+1 
if A-KY (2) then T2-T2-1 
if A-KY (3) then T2-T2+1 
if A-KY (4) then T3-T3-1 
i f A-KY (5) then T3-T3+1 
if A-KY (6) then T4-T4-1 
if A-KY (7) then T4-T4+1 
if A-KY (8) then T5-T5-1 
if A-KY (9) then T5-T5+1 
if A-KY (10) then T6-T6-1 
if A-KY (1 1) then T6-T6+1 
goto 1230 

locate 35,9:print using 
locate 35,10:print using 
locate 35,ll:print using 
locate 35,12?print using 
locate 35,13*° print using 
locate 35,14:print using 
locate 35,16:if B<0 then 
'♦-♦-♦ Calcuration ♦ - 
for 1-0 to NP 


Cl-cos (pai*Tl/STP) 
C2-cos (p ai♦T2/STP) 
C3-cos (pai*T3/STP) 
C4-cos (pai*T4/STP) 
C5-cos (pai*T5/STP) 
C6-cos (pai*T6/STP) 


0 then 
S 1 - s i n 
S 1 - s i n 
S 2 - s i n 
S 2 - s i n 
S 3-s i n 
S 3 - s i n 
S 4 - s i n 
S 4 - s i n 
S 5 - s i n 
S 5-s i n 
S 6 - s i n 
: S6-s 


1230 


*T 1/STP) 
♦Tl/STP) 
♦T2/STP) 
♦T2/STP) 
♦T3/STP) 
♦T3/STP) 
♦T4/STP) 
♦T4/STP) 
♦T5/STP) 
♦T5/STP) 
♦T6/STP) 


n (pai#T6/STP) 


Cl-cos (pa 
Cl-cos (pa 
C2-cos (pa 
C2-cos (pa 
C3-cos(pa 
C3-cos(pa 
C4-cos (pa 
C4-cos (p a 
C5-cos (pa 
C5-cos (pa 
C6-cos (pa 
: C6-cos (p 


♦Tl/STP) 
♦Tl/STP) 
♦T2/STP) 
♦T2/STP) 
♦T3/STP) 
♦T3/STP) 
♦T4/STP) 
♦T4/STP) 
♦T5/STP) 
♦T5/STP) 
♦T6/STP) 
a UT6/STP) 


goto 1370 
goto 1370 
goto 1370 
goto 1370 
goto 1370 
goto 1370 
goto 1370 
goto 1370 
goto 1370 
goto 1370 
goto 1370 
:goto 1370 


####',T6 
'####',T5 
'####',T4 
'####“,T3 
'####“,T2 
'####',T1 
print ^ 

♦ -♦ 


else print ~ tz ~ 
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ttnif 
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1460 X-SX(I) : Y-S Y (I) :Z-SZ(I) :«-0 

1470 gosub 2120 

1 480 RX (I) =XX:RY(I)=YY:RZ (I)=ZZ 

1 4 90 PX (I) -XX*80+ 1 60:PY (l) =YY*90 + 100 

1500 next 1 

1510 gosub 2320 Switch Screen & els 

1520 N0=NP-2:N1-KP-1:N2=NP 

1 5 30 B = (RY (N0)* RZ (Nl)-RY (N 1)* RZ (N0))* RX (N2) + (RZ (N 0)* RX (Nl)-RZ (Nl)* RX (N0))*RY(N2 

) + (RX (N0)* R Y (Nl) -RX (Nl)* R Y (N0) )* R Z (N2) :B-sgn ( (B<0) +. 5) 

1540 '*-*-* Write triangle *-*-* 

1550 for 10 to NM 

1560 BN0-BIN (I,0) :BN 1= BIN (I, 1) :BN2 = BIN (I,2) 

1 57 0 A - ( (RX (BN2)-RX (BN1))* (RY (BN0)-RY (BN 1))- (RX (BN0)-RX (BN1))*(RY (BN2)-RY (BN1 


) ) <0) 

A = sgn (A + .5) 



1580 

i f A<>B then 1630 



1590 

line (PX (BN0) ,PY (BN 0))- (PX (BN 1) ,PY (BN 1)) ,LCOLOR 

1600 

line (PX (BN1) ,PY (BN1))- (PX (BN2) ,PY (BN2)) .LCOLOR 

1610 

line (PX (BN 2) ,PY (BN 2)) - (PX (BN0) ,PY (BN 0)) ,LCOLOR 

1620 

paint ( (PX (BN0)+PX (BN1)+PX (BN 2))/3, (PY (BN0)+PY (BN 1)+PY (BN 2))/3) ,BC0L0R+I 

LCOLOR 



1630 

next I 



1640 

'*-*-* Write all 1 

i n e s * 

-*-* 

1650 

for I ■ 0 to NM 



1660 

BN 0 - B I N (1,0) : BN 1 = 

BIN (I , 1) 

: BN2 = B I N (1,2) 

1670 

line (PX (BN0) ,PY (BN0) ) - (PX (BN1) ,PY (BN 1)) ,LCOLOR 

1680 

line (PX (BN1) ,PY (BN1)) - (PX (BN2) ,PY (BN2)) ,LCOLOR 

1690 

line (PX (BN2) ,PY (BN2)) - (PX (BN0) ,PY (BN0)) ,LCOLOR 

1700 

next I 



1710 

gosub 2360 


Switch Screen 

1720 

goto 1230 



1730 

end 



1740 




1750 

'*-*-*-*-* Screen 

initial i 

i ze *-*-*-*-* 

1760 

gosub 2170 



1770 

locate 12,0:print 

4Disensi 

ion Graphics" 

1780 

locate 28,9: print 

'Y - Z 

" 

1790 

locate 28,10:print 

"X - w 

" 

1800 

locate 2 8, 1 1 : p r i n t 

-Y - W 


1810 

locate 28,12:print 

"X - z 

" 

1820 

locate 28,13:print 

"Z - w 

" 

1830 

locate 28,14:print 

"X - Y 

" 

1840 

locate 28,16:print 

“Space 

“ 

1850 

restore^read NP:NP= 

N P - 1 : d i m SX(NP),SY(NP),SZ(NP),PX(NP),PY(NP),PZ(NP) 

1860 

d i m RX (NP) , RY (NP) , RZ (NP) 


1870 

for 10 to N P 



1880 

read SX (I),SY (I) 

,SZ(I) 


1890 

next I 



1900 

read NM : NM ’ NM- 1 : dim 

BIN (NM, 

.2) 

1910 

for 10 to NM 



1920 

for J-0 to 2 



1930 

read BIN (I,J) 


. 1940 

next 



1950 

next 



1960 

return 



1970 

data 7 

Numbers of points 

1980 

data -0.866,-0.500, 

0.000 


1990 

data 0.866,-0.500, 

0.000 


2 0 0 0 

data 0.000, 1.000, 

0.000 


2010 

data 0.000, 0.000, 

1. 000 


2 0 2 0 

data 1. 000 , 0 . 000 , 

0.000 


20 30 

data 0.000, 1.000, 

0 . 000 


2 04 0 

data 0.000, 0.000, 

1.000 


2050 

data 4 

Numbers of men 

2 0 6 0 

data 0,2,1 



2 0 7 0 

data 0,3,2 



2080 

data 1,3,0 



2 0 9 0 

data 2,3,1 



2100 




2110 

'*-*-**-* Rotation Execute *-*-*-*-* 

2120 

XX=(Cl*C3*C5-SlS4S5)*X+(-Sl*C3*C5-Cl*S4*S5)*Y+(-C2*S3*C5-S2*C4*S5)*Z+(S2*S 


3*C5-C2*C4*S5)*W 

2130 YY=(Sl*C4*C6-Cl*S3*S6)*X+(Cl*C4*C6+Sl*S3*S6)*Y+(-S2*S4*C6-C2*C3*S6)*Z+(-C2 
*S4*C6+S2*C3*S6) *W 

2140 ZZ-(Sl*C4*S6 + Cl*S3*C6)*X+(Cl*C4*S6-Sl*S3*C6)*Y+(-S2*S4*S6 + C2*-C3*C6)*Z+(-C2 
*S4*S6-S2*C3*C6)*W 

2150 WW = (C1*C3*S5+S1*S4*C5)*X + (-S 1 *C3*S5 + C1 *S4*C5)*Y+(-C2*S3*S5+S2*C4*C5)*Z+(S2 
*S3*S5+C2*C4*C5)*W 
2160 return 

2170 '*-*-*-*-* System Constants *-*-*-*-* 

2180 dim KY (1 1) 

2190 FALSE 0:TRUE-1 

2200 MZ2500 TRUE:X1-FALSE 

2210 if MZ2500 then BC0L0R = 9:LC0L0R - 1 5 

2220 if XI then BC0L0R- 1 : LC0L0R - 7 

2230 if MZ2500 then restore 2300 

2240 if XI then restore 2310 

22 5 0 for 10 to 1 1 : read KY (I) :next 

2260 if MZ2500 then init "crt2 : 320,200,16':imt ' cr t 1 : 4 0 , 25, 1,1 
2270 if XI then width 40 
2280 return 

2290 '*-*-*-*-* Key code Table *-*-*-*-* 

2300 data 48,46,49,51,52,54,55,57,29,28,127,11 ' For MZ-2500 

2310 data 29,31,48,30,49,51,52,54,55,57,11,42 ' For XI 

2320 '*-*-*-* * Screen Switch 1 ***** 

2330 if MZ2500 then screen ,,(SCRN+1) mod 2,(SCRN):cls 2 
234 0 if XI then screen SCRN, ( SCRN+ 1) mod 2 : c 1 s 0 
2350 return 

2360 ***** Screen Switch 2 *-*-*-*-* 

2370 if MZ2 5 0 0 then screen ,,SCRN, ( (SCRN+ 1) mod 2) 

2380 if XI then screen (SCRN+1) mod 2,SCRN 
2390 SCRN- (SCRN+1) mod 2 
2400 return 
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3 ^> K 4 {t©Mfl 3 ,#ft|j :4 <, i 1 !-'x'Cft'■? 


7 7«—*‘4 H£l 
i' iftf? I> & 1 & A /sfo t 1 T'T, £ OS*. 
4 S' 1 7 "n -y ^0tftl,Stft'247"p .7 7 , 

4 A t ^rffT'96^- 4 

otUi-i L4„ 

0c*ftJE®:t ft*6 t, {>o 1 \.'h^b 
i XJittitiU fr'i-fz t & 7 i Z b I) 
h 1 i To £ ftft h , AOfffi 

4*g;L SKIF-Clii Sftft^j£L4C© 

DATA LISTIi^o < ft 

5 I) © t JEl' i To 

4 UlTft ±UW *) H L T 1 #©*(: * fc 

*■601, ii'-tTL J: 7 

t: I, 7 ltfolot < ft 6 ito)'tzKl, 


±9J4©«4A t i'oT I>ffii'#T'T„ DI¬ 
BASIC Loi.'tiS'pit'JIrfi!, fill 
Iiffl©/D/7 A •; X h 4MA, lit 
64£©ii*>, A.--7 4fJffl0ft^{>* 
6*>t Lfti-tt/v„ tt^* ? *ftliT, SI ft 
FM-77AV0BASIC4 £ I>TT- t L, C 
©DATA LIST^S C>C^MS-a-4U' t (, 
# x. T1 - £ T (^T'eS li—i ft 9 4 < 4 (.' 
li£ LA£i'A 7 /l ? ). £ 7 *',®SA 0 C' 
*Jlft 1 •*<,'* 4flffl*£4 £ 5f fe^F-e- < 4' 

$ l*'o 

Mf&C, DATA LIST0fT:^C^T4 6 
crtft^i’i'AA'S i imi)S5A. £ 7 
u-Kumt «ymio 


BASIC DATA LISTlSiSn V > K—Jt 



& ^ 

P*3 § 

u 

<1 

V 

1 

— -?> k 

7°P^7 A(7)H^t • #iL 

RUN, CO NT, STOP, STEP, TRON, TROFF ffe 




NEW, NEWON, BOOT f& 

■§■ 



MON, LIST, AUTO, EDIT, SEARCH, DELETE, REN ffe 




TERM f& 


77<J*37> K(^7 L -h^>h) 


FILES, LOAD, SAVE, CHAIN. MERGE ffe 


— ftZr- h/>h 


LET. DEFINT, DETSTR, DIM. ERASE, SWAP ffe 



AWTiIBB, 7‘'J >^) 

PRINT, LPRINT, WRITE, INPUT ffe 



a«M« 

GOTO, GDSUB, IF THEN, FOR NEXT, ON ERROR f& 


77<Ht- h ^ > h 

AHA 

OPEN, CLOSE, FIELD, PRINT#, LSET, RSET, DEVI$, DEVO$ f& 



■twffe 

KILL, SET, CHDIR, COPY, RS-232C f& 


US^E- K * 


WIDTH, CONSOLE 

2 

ure^E- K • 5C^®S^J^1 


SCREEN, GRAPH, LOCATE, CLS, INIT, COLOR, DETCHR$ fa 

J| 

^7 7-f "J <7 

mm 

LINE, CIRCLE, POLY fa 

■§■ 


^C7)ffe 

WINDOW, PATTERN, GET@, PUTCq fa 


mum 1/0 


POKE, MEM$, CALL, DEF, USR fa 


w •; 


ON KEY, ON HELP, ON STOP, ON TIMES, ON COM fa 


T'J >?»« 


LPOUT, HCOPY fa 


*-*- K still« 

7?>^> 3> + — 

KEY, KEY LIST fa 

3 

*-*-KMM 

•^C7)ffe 

KBUF, CLICK, REPEAT fa 

| 

KffiJfcP 


PLAY, MUSIC, SOUND fa 




TIMES, DATES, TVPW, MOUSE fa 


grilMft 


ABS, SIN, EXP, LOG, CINT, FAC, RND fa 




LEFTS, CHR$, ASC, HEX$, INSTR, MKI$, CVI fa 


• yTfAsatvTfAga) 

77< 

ATTRS, EOF, LOF fa 



^<7)ffe 

CSRLIN, POS, ERR, KANJIS fa 

4 

* (7)H6OTM» • •> * f-A^*S( -> 7 =r A £») 

>T'J MI* 

PEEK, INP, FRE, VARPTR fa 



3C^5IJMI*(*^) 

AKCNVS, JISS, KLEN fa 

■§* 



TIME, INKEYS, STICK,MOUSE, SCRNS fa 


/***- 


EQV, XOR, AND, NOT fa 




>, =.<,+, * , MOD, ~ fa 




&B, &H, &J fa 


*<7)fa<7)g*TH§ 


&mij£. fa 


X/N'-f 


0 :, cas :, lpt : fa 


^<7)fa 


3t^lJ<7)}&l'_b(7)>±,%, ^TFiiW&WjfflX^CDAtJ * W. F 


BASIC DATA LIST 99 


































*jg3Sc£S* SS^ 



POINT MAP PEEK VPEEK PEEK@ MEMS INP USR FRE SIZE VARPTR 
TIMES TIME DATES DAYS FN INKEYS INPUTS STRIG JOY STICK 


N-BASIC (PC-8001 (i*') 

©-f'-r 


7 "7 "7 -f -y 7 f) — V 


NssBASIC (PC-8801 (i£') 

(§R>-88SR<7)-»t?> KKH*<7)&§R^ 


-•r ximza)*-##. 


POINT ( I ) i/;UPOINT ( 3 ) 


^7 7'f^(T)K'y|> POINT (X, Y) 

<nyM*n%o 

o 

* *') <7)t~? *mz> 0 PEEK (7* FUX) 


POINT (X, Y) 

map (mm, mm) 

PEEK (7KUX) 


V-RAM<7)x-? PEEK (&HF300+Y *I20 + X(*2)) 

(* 2 (*40*7^) 


s^E'Xnir-fZi t 


INP (tf - h7KUX) 


PEEK (&HF3C8 + Y * 120 + XO 2)) 
(* 2li40tfrBS) 


INP (tf- h7FUX) 


n-t USR (f o]] (3|») 

daft^t/WTo 

FRE (ftft) 


USR (J 0|] (3|ft) 


fre mm) 


’g.'&fDfemy KUX^r VARPTR (3Cft£) 

o 

7 7^1/^*7 7 7^ VARPTR (#7 7 < ;!/#-§•) 
$7" FU7^il, 0 




TIMES 


VARPTR (£ft£) 

VARPTR (#77<^) © 
TIMES 


mz>o 

m&namtzmzo 

m&cnmatrmzo 


DATES 


Fm&Z -*(,-))] 

o 


* YlrbO)*?— 
^4-A*T5(l) 0 


INKEYS 


*-*-KA'b<7)7-- (INPT*iS^7 + i»>) 
?£A*T 3(2) 0 


DATES 

FNftft* C(/n*7^-^(,-])) 
INKEYS 

(INPT*it&7*v>) 


*-*-K*'b<75cr- INPUTS 
?£A2>-f £(3) c 

*— tf — K*'b(7)7^— 
?£A77T£(4) 0 

i/aOr-f 
Utf- (7) 


v a <7-r'f*y^(7)7 
T<77 (#) <7)#$? 


INPUTS (£$:») 




MSX-BASIC VI.0 (&4±MSX) 

POINT (X, Y) 

PEEK (7 Kl/X) 

VPEEK (7KUX) 

INP (* — F7KUX) 

USR (f 0 1) (3I») 

u) 

fre mm) 

VARPTR (3Cft«) 

VARPTR (#77^il/#?) ® 

TIME 

FNMnZ ((A7/-7(,-))) 

INKEYS 

INPUTS («:«) 

STRIG ( h ij #-#-§-) 

STICK (yaOiry^if) 
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I04^-vC|5E< 
















F-BASIC V3.0 (FM-71I*') 

HuBASIC (MZ-700) 

HuBAS!C( X1 • X1 turbo) 

l CZ-8CB0I VI.0 ;3)CZ-8CB0t V2.0, CZ-8FB01 V2.0 

C2)CZ-8FB0I VI.0 0CZ-8FBO2 VI.0 

POINT (X, Y) 

POINT (X, Y) 

POINT (X, Y) 

PEEK (7KUX) 

PEEK® (7KI/X) 

PEEK (7KL/7) 


PEEK (&HD000+ Y *40 + X) 

PEEK® (&H3000+ Y *tftfft& + X) ®(D® 


MEM$ (T KUX, &£) 

MEMS (7 KUX, 


INP (tf- h7Kl/X) 

INP (tf- h7Kl/X) 

USR (f 01) (SIS) 

USR (fop (3I&) 

usr c| on (§hso 

UJ 

UJ 

l 9 J 

fre mm) 

fre mm) 

fre mm.) 

SIZE <®(D® 

VARPTR (£&£) 

VARPTR (5I33U&) 

VARPTR (^BPS) 



VARPTR (D®@ 

TIME$ 

TIME 

TIMES 

TIMES 



TIME 

DATE$ 


DATES 

FNfHJ&£ 

Fm&Z CC^^y-^C,-))) 

DAYS 

FNG*m£ -))) 

INKEY$ 

INKEYS 

INKEYS 


INKEYS ( 0) 

INKEYS (0) 

inputs 

INPUTS (StSMBO £tztt 

INKEYS(I) ( 1 I) 

INPUTS (Jcsfstt) INKEYS(I) ( 1 X^<7>£ £ <7 )<*m>T) 

INKEY$(2) 


JOY ( 4 ~ 7 ) 

STRIG (7 a <7f-f72#§) 


CO 

1 

o 

>- 

O 

STICK (7 a 'y?#-*!) 


105 ^— 7(1 &< 
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POINT POSV MAP PEEK PEEK® INP INP# INP@ USR FRE SIZE 
TIMES TIS TIME DATES DAYS FN INKEYS GET INPUTS STRIG JOY 
STICK 


BASIC-M25 (MZ-2500) 

BASIC-S25( MZ-2500) 

S-BASIC(MZ-700/1500) 

® MZ-700 x-7‘M(ttJI) 

0MZ-7OO QD-DiskKfc 
©MZ-1500 OD-DiskKS lZ(n<fr7f& 

POINT ( 1 ) ttz\t POINT ( 3 ) 

posv {(mm 

POSV 

POINT (X, Y) 

POINT (X, Y) 

POINT (X, Y) 

map (/m, mm 

map (Mu, mm 


PEEKf (7KU^) 1 

1 @ (7'P "J $ #■§■, 7KUX)J 

PEEK f (7 FUX) 1 

l@ (7'P -y *#-§-, 7FUX)J 

PEEK© (7 KU7) 

PEEK(« (&H38, Y**Htff£fc + X) 

PEEK© (&H38, Y**&Kt&+X) 

PEEK (&D000+ Y *40+ X) 

INP (tf- h7Kl/X) 

INP@4?-F7KUX f 

j INP#® 1 X-YT KU @ 

llNP@®®J 

USR [j 0|] (§|#») 

usr u on (sis) 


Ui 

UJ 


fre mm 

size amm) 

SIZE 

TIMES 

TIS 

TIS 

TIME 

TIME 


DATES 

DATES 


DAYS 

DAYS 


FNflfltt* ((/<9 *-*(,•••))) 

FNHft* •••))) 

FNBCI&£ -])) 

INKEYS 

GET 

XM&TUKi' 

GET 

INPUTS (*$:») 

INPUTS (jfc^Sc) 


STRIG 

STRIG (y a'f 7r-f 7^ #-*§■) 

JOY (4 ~ 7) 

STICK 

STICK (va 

JOY ( 0 ~ 3) 
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106^—vM-fcfc < 













SHARP BASIC 

(MZ-8QK/C/1200/80B/2000/22Q0) 


(0) SP-5030 (3; MZ- f ZOO 1 <5; MZ-2Z00i 

CD SB-5520 ,4 MZ-IZ002 6. MZ-2Z021 

'2 SB-6520 

« % 

m # 

POSV ®~(D 

POINT (2) • POSV- POSV (0) (i-7-A, b'M^T*. POINT (3) • POSV ( 1 ) (i * Z 
') (vT^PV7h • M25, S25(IOl'T) 0 

277 -f >y ZZJ-V7U 
(7)YM#?rf#So 

POINT (X, Y) 

N • F -C(i K-y 1 , K-y bW&i'ffili 0 tfiSSftSo x-p - K 

aSg$ftS 0 

2 77 -f 7 2(7) K*y b 


2 : XMJgfcA?'J->-> r 7-</UKC:2E&, 3 : YM«£* ? >j 9-JU K£^& 0 


PEEK (T KUX) 


^ * ‘J ^ 


X««^[6j, Y(J«Lfr|6]<7>ft®, 4£tfr&li40*'80 o 

V-RAM CO x—^ £?#Sc 


MEM$ (&HE000, 3 ) (iCHRS (PEEK (&HE000)) + CHRS (PEEK (&HE00I)) +CHRS * 
(PEEK (&HE002)) o 

«>t.n»jar6 

r inp ##- b 7 k l^x, ® 1 

11NP @ - h 7 K U z, &<££&£ ©~©j 
* W«tT(i «Cl' 


/i?- b<7)l*®Sfc»*. 



l-f-(7)7y >I§CO 

SIZE 

tztznSlZEVmttfOteFHEyV-Ji'jTnl&ftZTFTo N, F, MSX<7>*§£*, 4£t££LT“” 
J^\'777 (CLEAR T'^h^ L /z) ^'Ji'J7^^ 0 «Hl(iN88<7> 1 ti 
BASIC <7)7°□ A, 2 • ^'*7 7 7, X 1 turbo (7) 1 (i7°P ?'xA, 2 liVDIM, 

MZ-2500(M25-S25)<7) 1 li^P^xA, 2 liE^IJ, 3 • gg^IJ, 4(iRAMxV*Z 

• y , J>7A'77707 , J —x u 7^t 0 

'J -x U T 






7 7<^A'7 7 7^ 
b'U7.£f#So 

Tl$ 

TIME$ “23 : 45 : 00”, TI$(7)JS^tt "234500" <7)«fc n H4S ( : tfAofc 0 A«b4 

4frF<7)TIMEti0B#0'fr0#£ 0 £ T (TIME$ £ I'oL 

.McSMfr*) 



MSXli^0\ H„ttl8>, M25*S25(i0.l^>mfeT^fr?>o 

f#S o 







FNK)&£ (/\*7^-^) 

DEF FN (T>m b^m(DZ to 

To 

GET 

S, SHARP<7)GET A$(i'ffe(7)A$=INKEY$ i:, GET Aliffe<7)A = VAL(INKEYS) t Is] L## £T 

So 

+ —T— K*'b(7)x — 
2U*T^(IL 


*-£#LTl'*Hlifa/gT*fc#£ftTl'3£*4'£ftS?-f "A SHARP BASICTiiPOKE 
$ 952, 0 t LTGET&teJB (POKES 952, $A 6 T'tcLMSX, i£(Z C (APOKE &ft(*X 1 T* 
it INKEYST' 4' < INKEYS (0) CTW^l' (t> % ^ A POKE (iBiS ) Q £ tz, M25, S25T(i 
POKET*4 < REPEAT ON, 4 T'&l'o 

+ — T'— FA' 1 o(Dt — 

9 ?:A*TS(2) 0 


*-V;U££;jgt£-ttT l^~Mm*T?.„ ^fc'LBASIC#jT«#L/-crt^^@®(Z^ 
7PL4'l' (iZ-A* 7i 7L4'l') <7)T% S^SHARPT'ftfflZ°P Z'v 

+ — T— KA'^cOx — 
2^A7]T?.(3) 0 


ij e- h^v7 b*-<7)*fo^£l@^S (Xl/turbo^ffl) 

MSX <7) h ij (i, 0 : *—*— + 1 :i?a'fXr-f72IOl‘ l J*' 

-1, 2 : ID h >J #— 2 , 3 : va^r-f 'y ? 2(7) b «J tf- 1 , 4 : IH b «J IS- 2 £^To 
HuOya<7T'f 'yZ#-§Ti0 : +—— K(77^^ — —, 1 : i?a<Xf-f7^ 1, 2: 

v3-f7T'f722^To MZ-700/l500<7)JOY<7)3|#$m, 4 : yaOr-f 72 1 (7)MJ 
t>~ 1 , 5 : III b U **- 2, 6 :ya'f7T'f7^20MJ#-l, 7 : [ij b 'J tf— 2 $r^T a 
1U_L, tfSttTl'fttf- 1 A\ M25, S25(7)yaYXT'f 

•y 1 : 72 1, 2 : '73^77^722^1, *££(* 0 : b ') ti- it 

*f£ftTi'4i\ 1 : b K7)^ff$nTi^, 2! b 'jff-2<7)#*¥Sft-cv.'S, 3: 

h'J^-l, 2 £ 

T— T— K*'b(7)x — 

^ ^rAT)TS(4) 0 
7a'1'7f-T 7 20 b 

U (7.T -y?-) (7) 


v 3 Or< -y MSX£Hute 0 T'*-# — K <75 * - 77U*-(MSX), x>*-(Xl) 

M25£S25til$/L4l'o iSSftSteliHu, M25, S25lix >*-<7)T ^ - v Q 
0±4<b8, £T4«bl, fafc*¥S*lTl'4ttfttf0 o MSXttllJztf 1 TB#StS to *;£*»*., 
MTU 5, ^_L«8C4S 0 fat,#£ftTl'4ltfttf0 o JOY(i (0) ^73^7 j< 72 1 
<7)X, (1 )CiI rJY, (2Hiv3T^xY V? 2<7)X, (3)ti|l)Y(7)iM^^r 0 ~255T^T (7tn7'7a 
'(Xr-f 'y?tzfrb) 0 

yS'l'^r-T 7207 
r-f 7 2 (#) co^AS 

S o 
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BASIC DATA LIST 103 




















I P * * P MOUSE CMT PEEK SCREEN SCRN$ CHARACTERS WINDOW VIEW 
; BASE SPRITES VDP PAD STRPTR CALC PEN PORT PLAY AKCNVS 

kacnvs JISS KTNS KLEN KPOS EQV IMP XOR OR AND NOT 


ft 

m 

* * 

N-BASIC (PC-800115*') 

0~f< 2?KRt::<7>*#tt 

NssBASIC (PC-8801 S^) 

(SR} -88SR<7)+f9> KlWgOfgifcfe^’ 

t-f-f 










(5IJ) 

PEEK (&HF300+Y* 120+ X)(80tfjB$) 

PEEK (&HF300+Y * 120+ X * 2 ) (40*fjB$) 

PEEK (&HF3C8+Y * 120+ X)(80f«) 
PEEK (&HF3C8+Y * 120+ X * 2 ) (40#rB$) 


^.^<7)^ Y > K^<7)# 


WINDOW (Mti) 


9L&0) tf ZL — tf — h (7) 


view mm) 

* 

CD 

ffll 

CD 

m 

• 

> 

V-RAM (DU *J y$T<7) 

^y?Y h<7)7 * > h 
Sr&So 

VDPUy7^(7)rt^$- 

^^7 K7):|*|Sfcfc 

2>o 



X 

7~ 

A 

* 

& 

3t^*y£BASIC<7)5t£ 

LTffHBo 



■> 

* 

7Y h^X7)m^S7C 
Co 


PEN (ttfig) 

X 

A 

£ 

ft 

RS-232C/\ # 'y ~P 
'JA'Y 

PORT (#- h##) 


I8^*o 




¥**^*±8*32 tz 




3I&TS 0 




^feli(7)^:^(7) jis a — 




^fesS<7)X^<7)E^a- 




l 1 X 

#>Z> 0 




*«n 

<7)/\*Y h&£;£tf)£ 0 




lUffi £> o 

»»^L EQV 

»»* EQV SEttst 


Sa 

»«5t IMP 5l3&5t 

IMP »»3Et 



»»5t XOR 

£&5£ XOR 

ft 

* 

+ 


»»5^ OR SB&jfc 

OR »»st 



AND 

g&i* AND »a^t 


5£***>*o 

NOT »»■£ 

not saa 


MSX-BASIC VI.0 («4±MSX) 


base (mm) 

SPRITES (*7?Y h#-^) 
VDP 

pad mm) 


PLAY + 


EQV g&st 

Sl&it IMP 

XOR fi&st 

OR 

AND 

NOT Sftst 
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F-BASiC V3.0 (FM-mfr) 

HuBASIC (MZ-700) 

HuBASIC(Xl - XI turbo) 

1 CZ-8CB01 VI.0 '3 CZ-8CB0I V2.0, CZ-8FB01 V2.0 

2CZ-8FB01 VI.0 -4)CZ-8FB02 VI.0C{7>*£& ’ 



MOUSE (ttfig C. £*31*0) 0 

CMT ((*«0) 

SCREEN (fltftlE, i$14g C, -tzU? b*T 

SCRNS (Atttff. mm, §£) 

SCRNS («Ha«, ttttfl, *$) 

**]) 

CHARACTERS (*£<4S, Sft<4$) 

CHARACTERS (1SH4S, *0H4g) 000 


STRPTR 

STRPTR 0XD0 



CALC 00 

AKCNVS (“£3^IJ”) 0 

eov mm?*. 

&&& eov ss&st 

KACNVS (“J^IJ”) 0 

JISS C^W) 0 

KTNS (“£^50") 0 

KLEN (“£^IJ”) 0 

KPOS 14$) 0 

g&xt EOV n&xt 

n&xt imp 

n&xt imp 

H&xt IMP 

xor 

g&xt XOR g&it 

n&xt xor g&xt 

H&xt OR M&xt 

SEtt^ OR g&xt 

or M^xt 

M&xt AND 

Sl&xt AND 

n&xt AND g&xt 

NOT 

NOT &&xt 

NOT 


109^—viz$5t< 
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MOUSE CMT SCRNS CHARACTERS ACKNVS KACNVS JISS JTRANS 
KTNS KLEN KPOS EOV NOT IMP XOR OR AND 


BASIC-M25 (MZ-2500) 

BASIC-S25( MZ-2500) 

S-BASIC (MZ-700/1500) 

0 MZ-700 ?—7'mttK) 

0MZ-7OO OD-DiskKS 

0 MZ-1500 QD-Diskj® 

mouse mm c, 

MOUSE mm C, 


cmt mm 

cmt mm) 


SCRNS (flMt*. (, 53]) 

CHARACTERS W±S C. «S]) 


AKCNVS (“5C^50") 

AKCNVS (“*^5IJ") 


KACNVS (“5C^J”) 

KACNVS (“S^D 


JISS (“5C^D 

JISS (“3«C^J”) 


KTNS CX&W) 

KTNS (“X^J") 


KLEN (“5C^5IJ”) 

KLEN rSC^IJ”) 


KPOS (“£W, feS) 

kpos cttvr, $m) 


EOV 

gait eqv gait 

NOT (gait XOR Sftst) <2X3) 

imp $iait 

gait IMP gait 

NOT gait OR gait 00 

xor ga*t 

gait XOR gait 

ga*t XOR gait 00 

gait OR gait 

gait OR gait 

gait or gait 00 

gait AND gait 

gait AND gait 

gait and gait 00 

NOT gait 

NOT gait 

not gait 00 
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SHARP BASIC 

(MZ-80K/C/1200/80B/2000/2200) 

:d) SP-5030 ,3 MZ-iZOOl © MZ- 2ZOO I 

i SB-5520 4;MZ-IZ002 ® MZ-2Z02I 

©SB-6520 


m # 


XI turbot M25, S 25 («h£ • ttMIR ( I = £, 2 =£) *(Z|I] U c 




CHARACTERS (*££[$, (j)~© 


F<7)SCREEN(ii|lSm^filT'^^-(SCRN$, CHARACTERS(i^) 0 M25, S25(7)g lU^lZi!^ ftTl'3 
? (ini'eSTS £ I tfrt£ZtlZ>o Z £Hu£SHARP( 7)CHARACTER$12:§:£12 I (Z&5 0 Hu^M 3^(50) 

25<7)SCRN$ (A, B, 2) (^CHARACTERS (A, B) ^CHARACTERS (A+ I , B) ^IDCo 
fcfc, T MJ t'a-( 0 *'£»& 

X'^ii(7)5C^)o 


«f£=o : ^_L(7)X/1#, i : £_b<7)Y(Hi, 2 :^xii, 3 : £T<7)Y/Hi£^-to ? 

T>K9- tizL-tf-K7)f£:£l$lZ, 


il£<7)9'1' > K3<7)#; 
BA:m>o 

b<7) 


V-RAM (7)flJU ^T(7) 

7 1 — ~7 )\/ £: ^ & o 
7 7^T h<7)7 * > F 

znzo 

MSX^ffi (i(ZVDP<7)TM99l8£}gfF-t3fIf]$0 

VDPUyX^<7)^^ 


?7'U<y KWSSrf# 
2>0 


±(ZVARPTR (£&£) l', KU7^'^ZT!)'^^^<7){Z^t7n-S) 0 


^m 0 


JTRANS - K) 


CALC (“10”) (i 10, CALC (“S0R(2)") Ci 1.4142---, CALC (“CHR$(&H4I)") ti“A" (Z&5 „ 
VALT'^b 3 fl/gftffl l}T'£Z>t%^b&Z o 


£3^lJ£BASIC<7)it£ 

<fr£LXfFfffi 0 


Mil(2 0---^># < *¥LXl'6tt>b-l £, tfLT4'l'4'6 0 £&-t, I •••Xil^ (tf 
H) SriST, 2-YJ®« (+t7^^1I) £iSfo 


7-r 


>*;KJ 0 ••• I • 2 • 3 I ^riST 

4* ft b— I %&T o 

JTRANS(i?|#& • £JK£ fcCfttt. *<7)ffe(J*(C^ 0 


RS-232CA'y 7 t<F)& 

y-'W 

SS^-So 




JISS (“B*”) (J “467C” (Z#£ ( r B j<7)JIS=l- Kti467CH^'*'^)„ 


$fc5i<7)X^<7) JIS □- 
K5t^5IJ«:^* 0 


KTNS (“B*") ti “3892” (Z4'6 ( r B j<7>E£u - RJ3892 ntzfrhl 


% m <n $:^<n £,£□- 
K#t?&lJ*fc*o 


LEN (““*>B*”) (“*>(*#8) (i 7 ^A'KLEN (“~*>B*”) (J 5 (Zfc* 0 

KPOS (“B^V7 4 ) li 7 C4'5o 7J i), 4^S(7) r Vj (JrtSBXii 7 V 


it zmzZfrbo 

L'-y h Z'£ (Z 0 • 0 

\Z"j h z-tiz 0 • 0 

M"j h Z'tlZ 0 • 0 

\i."j h ;z£(z o • o 

fc'-y KXCO • 0 

L'*y h ~'£(Z 0-> I 


I, 0 • I —> 0, I • 0 

I , 0 • I — I , 1-0 

0 , 0 • I —* I , 1*0 

0, 0 • I— I , I • o 

0, 0 • l-»0, I • 0 

I —>0 tz-f&o 


o, 1 

• 1 -> 1 (ZT5 

o, 1 

• 1 -> 1 tzTS, 

1. 1 

• 1 ->0 IZT5 

1. 1 

• i -> i tz-r^ 

0. 1 

• 1 — 1 (ZT& 


SHARP BASIC T*(jv 
> >§§'9'7^U—f- > £ 
tztz 

LIFX+TAND. OR# 
mt>tltz££li\FXs 

V 7 h, M 25, S25 X* 
-32768 ~ 
+ 32767 IZlRbtlZtf, 
Hu, S, T*UAflX.T +32 
768-+65535 (-32768 
-- I IZ#J«?) b&Z 
tlZo 


i i x 

6bZ> o 

<7)/W 

mi mb##)*,, 


I I I ^ — v IZ ^ < 
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+»& (JSfWt>Si>J V')Si>J V • SUSSES* 




























¥ MOD 



>< <> =< 

* / A &B 


<= => >= = 

&0 &H & J &K 


> < + - 

FD HD 


m * 

N-BASIC (PC-8001 liA' ) 

(b-x-f 

NssBASIC (PC-8801 

(§R>-88SRcWO> K99^<7)|/£5fiop^ 
‘13—7* < 

: „ ■' ' ‘ . ' 

_„ . • < - ' > L . " _ 

MSX-BASIC V1.0 («4±MSX) 

©-■r-f abuses)*#* 

o 

1 

racist"/ 

1 V II A II A V 

1 II V II A V A 

(Mi 1 

1 “St**"/ 

j&fitst 1 

V A V II A II , 
| A V II V II A 1 

(tili 1 

rxwJ 

f»fit5fc 1 

r^iTJ 

, V II A II A V 

1 II V II A V A 

1 

l“^xTJ 



1 A V 



1 A V 



1 A V 


M(7)iPW, 3C^?IJ<7) 

ftn'a 1 o 

1 

rs^sri 

, fftttA 1 
l“3SC#^”J 

ftt«3* 1 
rs^zTJ 

+ { 

»«!=* i 

“£^5Tj 

f&fist 1 

rs^srl 

♦ { 

'»«5t 1 
.“^5t”J 


- 

Mtzfc 

ftfit* - 

»«* 

ftfilsfc - 


SHSISMfSrlr-j (1*® 

M&xt ¥ 


g&it ¥ 

sass 

¥ 


(&£<7> 

£‘J)o 

S»5fc MOD 3l&*t 

g&xt MOD g&xt 

MOD 


*JM^o 

ftft£ * 

fttt£ 

»fii* * 

tttt* 

ttffi* * 

fttt* 

MWSrfH. 

ftfl& / Kttit 

Mxt / i 





- M*t 



- Mxt 



- Whilst 




m&x A 

fttt* 

SMIst A 

&tt£ 

A 


2it&o 







&B 



8 it$U 

&0 



&0 



&0 



I6ii^ 0 

&H 



&H 



&H 



JIS3- Ko 










Ko 










(it 

nmn, m^mm, 

1 E±38fl£ (7, 

6) 

1 E±38flJg (7, 

6) 

1 E±62*I£ (6, 

6) 

(it 

mm, mmM). 

1 D±38*lJf (16, 1 

16) 

1 D±38*I£ (16, 

16) 

1 D±62*IJf (14, 

14) 

m 

(+-*/)„ 

16 



16 



14 



*MSM& (SIN 30 t 
^S^(A)<7)fflJt(lff)o 

6 



6 Sfctt 

16® 


6 



aura*. 

2 it 



2 si 



BCD 



t*'J 

fc £ £ <7>&3^;£ 0 

INT 






INT 



3!&£<7>:g£ 0 

ffit:g($fcsi<7> 2 (ABC £ ABD 

liHD bntfrUZtiZ) 

40^ST (£S&£IM) 

2 (ABC £ ABD 


(ARUN^RUNAti 

*bJ) 

WttTttltfttffTCfcAl' (ARUN^RUNA 
fc^Jo & tz r . jkizvz Z>) 

^B^a-AT'tittb^Cl^ARUNWUNAtt 

T^j) 





* (7Jl/7 7^7 K, r . j (T) 




T*< ** K7t 7 0 

1 : ~ 4 : 

® 

i : ~ 8 : 

© 

A : ~D : 

© 


/N— K T^-f * i>o 
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F-BASIC 

V3.0 (FM-7SA') 

Cl -r f 7.?K5(;«*£:& 

HuBASIC (MZ-700) 

HuBASIC( X i • X1 turbo) 

1 CZ-8CB01 VI.O 3 C2-8CB0I V2.0, CZ-8FB01 V2.D 
2CZ-8FB01 VI.O 4.CZ-8FB02 VI.O 

/awn* 1 

(XL 

raffle } 

(afitxt l 

(>< 

(afitxt 1 

(afitxt \ 

>< 

fafixt l 


<> 

rs^xt”] 

1 £^xt"J 

<> 

r^xt”} 

r^xt"/ 

<> 

l“^xt”J 


= < 



=< 



=< 



< = 



< = 



< = 



=> 



= > 



= > 



> = 



> = 



>= 



> 



> 



> 



k < 



[ < 



< 


(siiit l 

+ 

afitxt 1 

/afitxt l 


afitxt \ 

(afitxt l 

. / 

afitxt l 

r^sTJ 


T£^xt”J 

r^xTJ 

+ l 

“5r^xTJ 


+ 1 

“£^xt”J 

atext - 


afitxt - 

afitxt 

afitxt - 

afitxt 

SSC5t ¥ 

^xt 

Hast ¥ 

Hast 

^ast ¥ 

naxt 

Siast MOD 

Hast mod gaxt 

Hast mod ^axt 

MS * 

afitxt 

afitxt * 

afitxt 

afitxt * 

afitxt 

afitxt 

afitxt 

afitxt / afitxt 


afitxt a afitxt 


- MS 



- afitxt 



- afitxt 



afitxt a 

afitxt 

afitxt a 

afitxt 

afitxt A 

afitxt 

&B 



&B 



&B 



&0 



&o 



&o 



&H 



&H 



&H 









&J ® 









&K ® 



1 E±38*IJ£ (7, 

6) 

1 E±38fi£ (9, 

8) 

1 E±38*i£ (9, 

8) 

1 D±38*f/f 

(16, 

16) - 

1 D±38flJg (16, 

16) 

1 D±38*I/£ (16, 1 

16) 

16 



16 



16 



6 



16 



16 



2 it 



2 ft 



2 it 






izg^tsA 



GgjtiA 




250£^ IT' 


250£^£T' 


*b4'lt*U£&l' (RUNAti/z 

b #3 £ * Kelt til f&i' (RUNA Itfz 

(RUNA ti/z^fc'^ARUNti^l'o £/z r -j 

/z^ARUNti&l') 

Sbtztf ARUNli&l') 

(7>2'-7'f»m , :^'T'^o £/zturboTii( )T*0A/zj||^, t> 














r “ j£l£< 




■51) 






o : ~ 3 : 

®. 




o : ~ 3 : 

(5, 30f) (D(D® 







FDO : ~FD 3 : ( 8 T >•?■) ® 







HD 0 : ~HD 3 : 

<D 


113^—vUfcni < 
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>< 

<> 

= < 

< = 

V 

A 

II 

II 

A 

A 

II 

+ - ¥ 

MOD 

* / 

A 

&B 

&0 &H $ &J &K 

FD 




S-BASIC (MZ-700/1500) 

BASIC-M25 (MZ-2500) 

BASIC-S25( MZ-2500) 

® MZ-700 x—7)K(ft*) 

<D MZ-700 QD-DiskRfc 
®MZ-I500 QD-DiskKS izcnfrftti E 


(adit 1 

r»3t"j 


’><' 

fadit l 

(adit \ 

>< 

(adit l 

(adit l 

>< 

<> 


r«^t" J 

<> 



<> 

= < 



=< 



=< 

< = 



<= 



< = 

= > 



=> 



=> 

> = 



>= 



>= 

> 



> 



> 

< 



k < 



< 


fadit ) 


/adit 1 

, (adit \ 
r^iTi 

adit - 

adit 

gait ¥ 

gait 

mod gait 

ftffist * 

a^it 

StfSit / 

adit 

- Sffist 


Sffiit A 

adit 


&B 



adit - adit 

gait ¥ gait 


Jadst 1 , IM 1st 1 

r*wJ r*^5rj 

adit - adit 
INT (»tt^/M^) 


gait MOD gait 

adit * adit 

adit / adit 
- adit 
adit A adit 
&B 


»»^(&)-INT(«B[^(aE)/«»it(*) 

*ga*(*) 

adit * adit 

adit / adit 

- adit 

adit a adit 


&o &o 

&H &H $ 


&J 

&K 

I E±38 mm (9, 8) 

1 D±38flJt (16, 16) 

16 

16 

2 it 

EJisA 


&J 

&K 

I E±38flg (9, 8) 

1 D±38*lJf (16, 16) 

16 

16 

2 it 

E^5EA 


1 E±38flJt (9, 8 ) 

8 

8 

2 it 
INT 


200£^K' (^gP^IScSIJ) 200^ST' (^ge^tSfeSU) ftSS(^M<7)2 5t^<7)*^) (ABCtABD 

IJfelD fc<7>£*4'3n*) 

(ARUN^RUNAfHIo £/z r j*>*7-, WC'4'ltnifflT6(ARUN^RUNA (ARUN^RUNAli 

t:i:m?>) fenjo m&Z&tszttf T ^noT) 

£*) 

♦ (7^77^7 h, a^, r -j, *t-, /H^^'f^fflaio ifi-^-^'sr) ♦ (jii/ 77^7 h, a^, r -j, dxD 

*7", E-^^nT) ( r “ j^r|^< f ^T^X^A^ffloT) 

I : ~ 4 : FD I : ~FD4 : dXD (MZ-5201 £i£<) 

fdi : —FD4: (i : ~4: 11 r>tz < na) 


I : ~ 4 : 

FDI : ~FD4 : ( I : 4 : ££r>tz< mM) 


_ 
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114^—V disc < 












& ©@ 


SHARP BASIC 

(MZ-80K/C/1200/80B/2000/2200") 

SP-5030 (DMZ-IZ00I <1>MZ-2Z00I 
SB-5520 0MZ-IZOO2 6 MZ-2Z02I 
SB-6520 




fattest I 


fattest 1 

rx^srj 


>< 
<> 
=< 
< = 
=> 
>= 

> 

< 


fattest l , fattest l 

r*^srJ i“»srJ 

attest - attest 

INT (»ft*/»«[5t) 

natstcso «iNT(**kit(aE)/»»^(*)) 
*te»5tcfc) 

attest * attest 

attest / attest 

- attest 

attest a attest 


X^ZWit&T', fi&ifim#Z£$<nM'<DWmi3fotf SHARP BASICS **UU*f£ X(ig4 £ 0 
A$=B$, A$<>B$, A$><B$T(*W»*l'*< t *<A-6 0 

70PV7 h, Hu, M25, S25, SXt*. SrfcsM*' <b Jt*K L T L' #, tl-7^=i-K 

<7>*£ i' fc <7> a< c a fc 4*So & + T£^5ija<|frbofc<b, ctoT 

“AAA"<“AAB”, “A”<“B", “AAA">“AA", “AAA"<“B" 0 SHARP BASICTti £ 

tt7^a-F 

<75 *£ V.' t> <7> II 3fc/-£>*<, <£ o X"AAA"<“AAB", “A”<“B", “AAA” >“AA", “AAA” >“B” 0 
«t*jT, SHARP BASIC^<7)i^teT(J f A$>B$(JA$ + STRINGS (CHR$( 0 ),255-LEN(A$)) 
>BS -f STRINGS (CHR$ ( 0 ), 255-LEN (B$)) £TZ „ J£C, SHARP BASIC4b<7)*£te 
Xii, *-f&<*£*bSiLX*'*>, g?^Ui:#<7)^||^c7)ik^^t-^«t'3(c-r^o fcL, 2: 
^51J<7)fi£# 254 3Jt^lUrt4C%, AS>B$(iCHR$ (LEN (AS)) + A$>CHRS (LEN (BS)) 
+B$i:LTt,^i' (^iobLfch'Jy^Tn 


»tt5tM'ft8Bfc-£fc££ f *<7) BASIC II JoXINT^ttmfcSAtfm^ft***. &3f£fr 
ofcf£li$(IINT (iEflMIttFIX) ?n5Ota»0 


S-BASICT*«&B, &0«l6jtatt-iSt'o SHARP BASIC X(i$li POKE <—95(7)7 -r- 

m<7)+T*(7)*tex. t j:oTi'-rniio3ftaicitr'fi&s* < **ca: 

VAL<7)Elft)#M„ 4fc F-BASIC T(il6at®[- 8 Jitt«:*CjE<7>ttlI** (&HFFFF 
ti65535H4S) 0 N, Nss, MSX, Hu, M25, S25, SX*(i-32768- +32767(75W(7) 

teC*So FA'fj^teteX'li, te‘&C«fcoTl*&H8000£ 32768CXx.S, 35<7>J*f|sa<!&**Z £ 
t>*S (&C4'ofc«b+65536-f ££, FH«(7)IE<7)te*r £ S J: 1 C4S)o 


Hu (turbo), M25, S25*C, M 7 HU# • *-A2M$tiJIS, EMIT, HfiWittJ&T £ *> 
7 h JISU-KC*S 0 CHRS (&J467C) £ CHRS (&K3892) £CHR$ (&H93FA) £“B”li 
HLH4* (“0"(7)y7 h JIS=i — K(i&H93FA)„ 




fttettim#, *^5iJ<7) 

teJMrff-5. 

gat&gSrfr') ($* 

(7)^ata5) 0 

mn<n 

teux 

*#fcfrdo 

2itato 

8itat 0 

i6ji»o 
TlSu — Ko 
EMI3- Ko 


£ 


IE±l9flJ£ (9, 8) 


2 it 
INT 


ftSftOfcHS<7>2*^<7)*3naj) (ABC£ABD 

amt bent fruznz) 

(ARUN^RUNAli 

^pI) 


CINT<7)mt>#te 


Sti:J:'jTBfat<7)«i!i^ir5!i«J!) < *5o 4fc, ««r<7)tetec ! ^f4-<<7>ttte«lSII 

at, &a«f*<(7>i*sm, #w<<7)titete«^at, $* < #<<7)tj^M 0 a%*:a u*f! 

4 £ Eft* <7) X, SH ARP BAS I C £ S- BASIC X (i £1 h b A' <7) £ hu £ ft o T l' 41 ' b <7) U £ 7 , 
%*\. #»»£«*', E^*Mtt'Xl'4 % < £ fcDEFSTR*<ft;bftXl'££#li$£ftlt£'J& 
te*<*St»(7)*«ASo DEFSTR<7)flFf^#Rg 0 


(it 

teflutnat^iBH (it 

»«rat, 

EafliJftJfttttJt («i) 

(+-*/x 

atte^at (sin i?) £ 
^2ffl(A)<DteJf0KT) o 

x/j^at^^te^^o 
fc i: # <7)M5i^>io 

%&Z<7)M£ 0 


%%L&<n%m o 


7^;u^* < te^.4t'BASICXlitr#-^C5!^So 




(77t^r-f^2 U y^<7)#^.^* ? 4t') 


r-f77 K 7 T 7*o 


/\— Kr-f 7 ^ 0 


M5X-^t=i«< 


BASIC DATA LIST iii 


i^>JAXSl S^(KS»84: 

























a 

a 

ft # 

N-BASIC (PC-8001 li*') 

NssBASIC (PC-8801 

(§3)--88SR<7>-* r 7 > b 
v—T4 

MSX-BASIC VI.0 (£4±MSX) 

D -xT 7?Jj£C<7>##& 


RAMx-f 7. 9 (F*9of? 0 






'J'*» 






RAMf<7^Mo 

*g«)o 






t) iz "J h T- — ~f 0 


cas 1 : 

— CAS 2 : 

CAS : 


®® ( □ > h □ — ;m 
— K *Hm> 


SCRN : 

® 

CRT: 


®@ (zi > h □ — ;i/3 
- K(i'>>*Ou^) 0 





T 

/< 

7-f-y* RAM 




grp : 

7. 

€ 

7'J >?o 


lpt 1 : 


LPT : 

*-#- K 0 


KYBD ! 

® 



RS-232C 0 


com 1 : 

-COM3 : 



? -r -y ?x-r 7?„ 






/z r~"<7>*#)o 

(x/N'T^^S) (77<^j 

(xV\*T7£) c77^n] 

(rVW7^j (7t4JU£) 






(i^(Z2M'T hi:4'^o IAV h S (JOIhT* 2 
/<< h S(i40n~ 5 Fiunt'nfriZteZUUb 
0Ih+53h) o Z(T)tztt>M\Q$, ASCmX^to& 
0)$&l'(C}±£ 

* 

<7) 

2:^<7)A2]7j>£o 






( U 7 h 4 1 

T'(7)5c^) 0 







BASIC DATA LISTSffljS 


=1 V > K— 1litT-ffiE#A'®tSl,T8H+fcr <tl.'T*L t 7» 

#, Holt 5 


4 HUl^/’z^TiliJc^n/zOcOT--^ U 7 b fc, ^HX^TT'to 

xt<i ! x-?st. 4L, i'A.’MBl'i'OTrt'Solf OfrA'ibttL'a x 





htit*U£S.^'X-L i i. if 


AULii. ffelfc fclOte* LCt 5ffl##CLT< 


(i, u ><7)T- zlTJU£*J: < W-^T < 


1 . StOTjEU'jLS 


*^£HU Lft ifLTi^A:vu> 


z<7>mii, BASIC (7)n*7> F^7 t- h ^ > K 


V)#)T zcnmzm^ ZTo z.cnt 


(let to -£CT*. i^^)3 7>FA\ 




£T 0 37 /^ 77 - 



h^> ^^ 77 -f «y*KH*<7)fc0>A\ 771'^fiw^A', 


^^T^TUl'mU -7*' 

o fcl'^A,£( It, *>oT fr%tz 


ffi^- KS8«tf>fcOTA'iUofeU*;uT-£7Em it, f LX, 

tt<7)«t(i£>U Jtcto 
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F-BASIC V3.0 (FM-715 *') 

D ••■T f < 

HuBASIC (MZ-700) 

HuBASIC(X1- XI turbo) 

1 CZ-8CB01 VI.O 3 CZ-8CB01 V2.0, CZ-8FB01 V2.0 

2 CZ-8FB01 VI.O '4 CZ-8FB02 V1.0l-<7)*#£ 



MEM 0 : , MEM 1 (MEM 1 : (i<D) 


EMM 0 : -EMM 9 : 

EMM 0 I -EMM 9 : 

caso : 

CASO : 

caso : 

SCRN : 

scro : 

scro : 


CRT o : 

CRT o : 

LPT o : 

LPT o : 

LPT o : 

KYBD ; 

KEY o : 

KEY o : 

com o : -com 4 : 


com o : @ 

(t*/** x£)(7r-OU£] 

(f/W7^) c77^1/^] 

(77<j^] (; /a7-n GX2XD 

(f7W7^] c/f< U? b U£(; /N°X7- K) (/•••)) (77<j^] 

(; /N*X9-bC (?) 


'J'X^ • oy ! 4i:iil, U x hT<7)PRlNT 
“0©H !0MZ" (i, HITT 5 £ Oh ! MZL4 
£> 0 £/i, INPUT AS T Sharp MZ-700 t 
At)T5 £AS=“S0HARP 0 MZ-700”(Z 4 
l J LEN (AS) (il4(Z42>,L4Lflajx.(3TMZ- 
2000 T'tt L (7)ii tj {: L X h 12114 £ 0 (54, 
MSXIl)#MID$4i:'T^T<7)^M»(z>£ji 
T-5> 0 

K&HI0£&HIIT'£>5 

turboT'(i;H^4A7Tl'?>Z £4**4, iafflttfcffft* '>7 bJIS£l'T 
B5t4(7)T, V x b*<7)3fc:3:<7)X# £iI0<7VW btti:4%o 7jij,A$ = 

“J&" (i, UPgt 

X * ') , LEN (A$)li 2 C4£o MIDS I^T'MZ- 

700^MSX<7)<J: 7 4W*«4l'0>T, MZ-2500JU*Mi&titT* £ # * 


[GRAPH! tfflLfcftTRRmmi HOME 
| CLR | <7H'Ttl4£*¥T 

X ITTiPOKE&H 1 A3, &HB It T * £ ESC l£# L fc®T'RRmmi HOME 1 
[ CLR l<7)l'Ttl4£*¥ LTAt)T'#^ 0 turboT'teX 1 <7)BASIC£*e®) L T_L 
ie£*T0 4, PRINT # 0 , CHRS (28) <7) «t 7 (I L T JilT^/c#^* |COPY| 

+ -%'flJfflLT#a<7)«SfftZfiaST* (28ti, 28-31, II, l2<7)l'Tft4) 


□□□□ms 

oooo a k a l 


2 . 

tzt.X.1*, (J4<7)3tfjfci;:, r7-A°P<7);£#^< X?(7)rt!g£Ift<fr 

til L T BASIC Cili:t7 8 P^7A^PC 4' A, t 4ffl tlT l' 

it 4 £* 4feHt £ tl T l' & fc<7>4£l'<7) T% lliu^-yp SritoT 

£ To 'Jxb£jt,$£, 4C^«btR<7);b4*b4l'PV> K4&U £ 
To £&®-7 /c! ZJJKtZtz, COf-^U^b^tti'iLJ: 

1o C<7)J: 0 4*&*£(z(jT f -f ^ T'L> ^ 

*fr4ft(«t'0>“C, W^tl7T7Jl/P''J XA^rii^T^/c 
llT'T4«bfeWT'To I/:Ci:<7)4'l'P7> K ^ X 7 ^ - b X > b 4 


£Ti, 7°P ^^A^^^n^Ccfc-pT^tilpr^ LTl'?>4Ii 
^<T'U^'b, }f ifcp "7 > K—H 354 £*T'#CLT, 1^47 
b* c ^mx^cii-<n(^t'(7)TTo £&<?>/*v p >t~($o 
fcz:£<7>4t\ K^Xx- bX> b 4 £'4 

^Tt), t^-^Ux bfcJMx(*«$ttfr4*U 

£T4b, T;uzfM x'A£If$¥ 
T £ _hT##CtSiPiifl'ito AWT S-h-C«*W(z(££'#4 Z 
t It, 7“p ^7A(7)^W^J: i 4fi# £L, £(F>t i 4M«(Z 
a*4*5fe±izsa»T*::*:TT*< f z<nr~? ux biiiawi, 

•7 4U LTi'*<7)T% ^(7)J: 7 4££S8?T5/ctttCli 9 7t7li 
T'£>££wx£ To 


BASIC DATA LIST iiJ 





































MEM RAM CMT CRT LPT KB COM RS QD 


BASIC-M25 (MZ-2500) 

BASIC-S25( MZ-2500) 

S-BASIC (MZ-700/1500) 

® MZ-700 x-yfiS(ftJl) 

(DMZ-700 OD-Disk)® 

(3) MZ-1500 QD-DiskJ® 

MEM 1 : 

MEM 1 : 

RAM i : (D 

CMT 1 : 

CMT i : 

CMT 1 : 

CRT I : 

CRT i : 

CRT i : 

CRT 1 : CG 

CRT 1 : CG 


lpt I : 

lpt I : 

LPT I : 

kb i : 

kb i : 

kb I : 

com i : -com 2 : 

com i :-COM2 : 

RS I : — rs 4 : 



OD 1 : (D(D (MZ-2Z032£I&< ) 

(tV\ # <C/tw i'* b u«(/-)K77'-r;u«) 

(t'-'W *£H/-r T \ s <7 h V£(/—}] 

C 77^fU) 

(-r/w (7 :p<7U£) 

il^C'Pl'T(iturbolll^lo (turbo^MZ-2500M<7)H3®(i^r< fci') 

M25i:l5ii; 

Lb^A^jTC^t'TttHu (MZ-700) 
|hJ«„ ffi(zcn«b<7)WT'(i#nra®(i4'L'o 
/•c/::L#£©<7)*V7??=i-nJ5 £ 6 T* 

I GRAPH! ^#L^^T*raRmfTlfCLR II HOME 1 <7)L'-f 

1 GRAPH 1 ^LfciTRRmmf CLRl 

1 HOME 1 

i graph i ^-wLfcax- FiRmmrcLRi 

1 HOME 1 

OOOO h m C l 

OOOO h m c l 

BQDDEIS 




3. &«C«fc7 

«•#«**<(□ v> K, * 
7 — > h £«7>xi'*gB*4'n;tif6ltw>rt>#*-fc *<r>££') 

x Kntfo'i;cfT^iiA,T-LS l'£ til, *7 LXrr*>2,A.X-SX, 
A £ tW'Tt < £W)'5itzZ fc<7)4A'^(ZiiJ < t>L it. ZKUt 
#, htitztiitzbm titii'l £ fcftffl*'4»#fLX, *<n 

b ZKUVhZ *: T5*'»;«L £ 

Tt't ftlTfegl'T-Lii*', Z<t>-r-?'./:*l'?x*nit'4 
Ktt'UiKX-t J:» TtH*OT*5.A4'b, *OT;bi!>'4 4t' 
=>7> K’f’*-?— h#^A4«ll<t>4<04lt;b*'5,(tt'4cD 

X, f ezmaT-Vk^btltto £tz, iot<WK-*T^l 


«aOTfc(7>*'1fA-t+^t>*'E.4'L'J; 7 4A fc, T-5 ')%\-<n\ n 

t* ! T'S STo *t«a»OT|S« 
fflOTifr^lCitLfcU, ftffl'f-SItT'JL—^fcfTofcy. $>utz<n 
H*ror=iac4-7X#ifo *#(7)tM4^a, *5«£S»LX£i: 
»4tlXl.'-5OTX-, yo^7 S >:/Ca<SA < 4'l.'fcl'7 At)ja?g-7 
x*.x<f;$i'„ ^ttiifswtaox, e^wci^tva^s 
OT^o ?'5A^-fT5Z t * < 05ai;47)Xi.'S-fo * ft £-#;<.£ t, 

<fets««*K/;(txii4< afcioxi'iimf- 
9 ') 7. b (i, a^-OTVz.o.TJl'S X.T'SIZ LX L £ 7 t @ X.-5 li f 
»**«¥W4*It 5 i: ®i' £ r. 4-* T*?«4 iT’S’ o fc z i44A' 
L, Bftt>4A'i:L'7At.««tLX*X«l'*'* ! X-LJ: 7 
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BASIC DATA LIST 115 




















Takahara Hideki 


ifii fi < x /_• * i: U h , Ht i$ft u j£itt 5 (Bi! Hi: c - -raM 

LTi'S; t 14 PC 8001T' {, fail S ! ) BASICHcDlitlfSJtT, 
ii'iNc5l Zftib 7 r 'f ^a.'I'Jj 

i- L i to 4 C 2> 4 fc f, t 7 =» 

r D A7 Aft: I) dsJjA 4 L i ? o TMli'- — yf^M-fitfiTl! t x 

7v-yK>-h (-ssH-gisns*) *' ; t-?tft, 

"ft ft-*' c, O t s, i&K r fJ> 14 BASIC 4- A T t -r l: 
-?xft — Lfi-stj 11 - O ^ g jfc-oof t *L 

* A43Ut*fc L TH*‘W^4-r n ft" 7 a 4 gift L TSBfffiffl L 
fc: t* ? *5©-r'l 4 7 *-o4 t x.B ASIC 4-7 x^-L, LOGOI 
PASCALA: of, f'x L t: >>;44imi4"4 yft. 
7>-f-0*7-A>45OGL41IJilix.Ti.'S4fttoAJ; 0 {,. 4 
fe^'-;uA>t'^4 mi- 4-fill It 4 A© 14 7 * ; TA> U7l 
©ft, 

ltflUd:-5 

f!4, 41 J IIii4*‘faT7°n^"7 AProl-l^ET < 4'$i'o 4+i 

!440A©T:f4i* i VS 4 9 xco, *4rx xfti: 1? 

m L, & B Ik A fK L T, ft-ft* i ft it- 4 '> 5 ^ ^ 

-Kti ©ft, mriZtt'<k<D i is 1 ft, 

(ft##) (ft#) 

100- f"— ft A ft 

200— +"— ft 7 7 4 ^ftoA 

300- r"- ft 7 7 4 Ik Ail, L 

400 - 1ft, it??: 

200fjC077 4 K--fc-7"(^Ji) t 300 tf (7) 7 7 4 A D - ft (MA 
ft, L) co T-liKil4liiil"l L 7 *■ 1 ^ I) 4 l fcfe. It *) Jit t 
(fff&iiftO CMAfftL] 

OPEN “O”. #1, F $ OPEN “I”, # 1, F$ 

PRINT # 1, (f— ft) INPUT # 1, (HSc) 

CLOSE #1 CLOSE #1 

i 4 o f i - 41 o 4 4 f F $ (4 r (ft$£ft£S:) 7 7 4 a ft j 
ft, 

§T300tff77 4 ^*-lit''-ft 4 M Aft, L4t> t, 77 4 ^4 
ML, CALC SI! (400-470) f ft# l f I-4 t, 4 4 fttlittlft 
ALL4>ft*4 ati:, ft-t'—ft4@®l-lS)jSlTi'S A'ttft 
*\ tt£©iA#i« ; Jl7'’n ft"t Af 14 4 ©CALC®Ctiat 4 
Ostf: j 4t'-ft5ta : i!l!*' ; m^47°n t7AC4 1 4t, ft ft" l, f" 
— ft A ft © ft t - x" A t 4 f — ft 7 7 4 -^©Sia U14 A It 


4&i'l4* *) 4 t A, 


Prol-1 

100 

REM-Prol - 

1 1 0 

DIM D (40) 

120 

REM-DATA MAKE: 

130 

FOR X-l TO 40 

140 

D (X)-INT (RND (1)*101) 

150 

NEXT X 

200 

REM-DATA SAVE: 

210 

F$-”0:FILE” 

220 

OPEN ' 0 ', #1, F$ 

230 

FOR X-l TO 40 

240 

PRINT#!,D (X) 

250 

NEXT X 

260 

CLOSE#1 

300 

REM-DATA LOAD: 

310 

OPEN “I',#1,F$ 

320 

FOR X-l TO 40 

330 

I NPUT#1,D (X) 

340 

NEXT X 

350 

CLOSE# 1 

400 

REM-CALC: 

410 

FOR X-l TO 40 

420 

PRINT ” No.“;X,D (X) 

430 

ALL-ALL+D(X) 

440 

NEXT X : PR I NT 

450 

PRINT ”3'9W”,ALL 

460 

PRINT ”,ALL/40 

470 

END 


fTProl lfl47°nft"7A©ftH4fti$t'44»t: DATA 
LOAD® t CALC® 4'til l 1i - 4 t *\ 4 < f, 4 t , 320tf t410 
ft 14 t fc lIFOR X = 1 TO 40ft L , 340 If t 4401r t |5] L < N 
EXT t tftltto 

4 4ff'-ftAft fc|S®«:fHr4 t'OfN&fcft? 4 7 DATA L 
OAD® tCALC®4fuA L ft©*' ; ProU2f t„ IkA,T, L AD (X) 
4t<"(:^, IttLt, ;AC»D(X)4lKAfl , 1 Lfi-it. 


Prol 2 


300 

REM-DATA LOAD & CALC: 

310 

OPEN " I ",# 1,F$ 

320 

FOR X-l TO 40 

330 

I NPUT#1,D (X) 

340 

PRINT "No.";X,D(X) 

350 

ALL-ALL + D (X) 

360 

NEXT X 

370 

CL0SE#1:PRINT 

380 

PRINT ALL 

390 

PRINT "a”,ALL/40 

400 

END 


StceScaLT. w©&TS-*ftftH4-t7'^-^>{Lt4- 
tfcf&4to iM'ZO) Prol-3ft 0 


Pro! 3 

300 REU - DATA LOAD & CALC: 

310 OPEN "I',#1,FS 
320 FOR X-l TO 40 
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330 


INPUT81,D (X) 

340 


GOSUB 400 

350 

NEXT X 

360 

CL0SE81 

:PRINT 

370 

PRINT ' 

3' 97-T, ALL 

380 

PRINT ' 

a**7 ”,ALL/40 

390 

END 


400 

REM- 

SUB: 

410 

PRINT ' 

No. ”; X, D (X) 

420 

ALL-ALL + D (X) 

430 

RETURN 



C0 3««(07 *>, E'^ -^r -x4'®ft 
i)\ tz L x. If 7°o / JACt 1 t'liil C W*|f 4 T 4 ^i')f* r H|i'J trlWX 
< «.iI^i:liProl-3*WWf't L, /b^aC r gRS,'fbj 4- 
3dfcT 5 Jf-n-i: liProl-l*U' lb If A''> KV >T'l^Ti'TT J 
7. lb4^(:fti;a!itlt(:oi.'-ctilf, f*—*&4iooofl*N: L X 
lie78#, 76#, 76#t 4‘ V Prol-lA'^iftlb 

5 J; bt'U:„ 

OPRINTUSING 

tie’?’4 £>j<T s I® c, a * Sic4JiiU 4 A * 0)tir^rno mus. 

PRINTUSING 5 T 

A L ilfl2.34fSf<a; 4 A fi, '\'%L% 2 A AfS^T 4 Clf 
PRINTUSING “####.##"; 12. 3 
i_ jl_.12.30 

fc40iTo fc 1b*>/L'J'»li4 < X *>*•*<.'A. A A'l, Z 
MHii-CfoikUmt., #-?-?<Du4 7t> h J: 1 t>&:f0A*Sc 
t> : k M4'Ui7 — *-,'P, -C Li?:t T'To i A, Tit'.'TJ, K 
4l0sS:£SfTs t, 3?^t:Tfc*iUTA£60A4^0*** 5 ib 
IA*TT, h c>1)'\:#)'giLO)'r Zlktfbt'o-U.' 
T, !Mtfi-*l*‘l4i’t ^^UCRgo-Clsli?c7)*HH' J: ?-C't 0 


x 'J-vxzi oT*fHt£ft(t34' Ali$St07 +A 
el5A£ftTiTx — A SriQlTftlf, feWe* 
ItsSfcttltT^fcl'IifgATAT fTo 

100 REM 88888 7'7-ft/?7 888888 
110 DIM 1$ (30),I (30) 

120 C L S:P RI NT "******* 7'7^7?7 ******* " : PR I NT 

130 GOSUB 1100 

140 INPUT * *7*7 (88):":Y$:Y = VAL (Y$) 

150 INPUT * *7i>'7 (88 ):"; M$: M = VAL (MS) 

160 DAY - 31: IF (M-4) + (M-6) + (M-9) + (M- 11) THEN DAY-30 

170 IF M- 2 THEN DAY-28 

180 F $ -"BK"+Y$+M$ 

190 INPUT * LOAD FILE (Y/N) :" ; ANSS 

200 IF ANS$<>”Y THEN 250 

210 REM -FILE LOAD: 

220 OPEN "I ", 1,F$ 

230 FOR X-l TO Em 

2 4 0 INPUT8 1,D 

250 GOSUB 1200 

2 6 0 I (X) = D 

270 NEXT X 

280 CLOSE 

30 0 REM - JOB MENU: 

310 PR I NT : PR I NT "-< JOB MENU >-" 

320 PRINT “1. DATA INPUT" 

330 PRINT "2. DATA ANALSYS" 

340 PRINT "3. DATA SAVE" 

350 PRINT "-" : PR I NT 

36 0 INPUT * INPUT No. (END-0) :";ANS 
370 IF ANS-0 THEN END 

380 ON ANS GOTO 400,600,1000 

390 GOTO 360 

400 REM- INPUT MENU: 

410 PR I NT:PR I NT 

42 0 PRINT “-< INPUT MENU >-* 

430 FOR X-l TO Em 

440 GOSUB 520 

450 NEXT X 

460 PRINT "-“ 

4 70 PRINT:INPUT "* INPUT No. ( MENU-0 ) :" ; X 

480 IF X - 0 THEN 300 

49 0 PR I NT:PR I NT X;1$ (X) ; 

500 INPUT " - ";D: GOSUB 1280 
510 I (X) -D: GOTO 400 

5 20 REM - PRINT TABLE: 


530 

IF X- 3 

THEN PRINT 

"* >*9Xa9 

540 

IF X-Im+ 1 

THEN PRINT 

"* 77* 7 ” 

550 

PRINT X;1$ (X) ;TAB (20) : 


560 

PRINTUSING 

"88888888"; 

I (X) ; 

570 

PRINT ”x 7 " 



580 

RETURN 




600 REM ***** DATA ANALSYS: 

610 PRI NT : PR I NT “-< *'-? 7' 7t* >-' 

620 PRINT 

630 PRINT "* a77'7 J Vx* •*! 

64 0 D- I (2)-I (1) : GO SUB 900 

6 50 IF D< 0 THEN PRINT "!!! Jj>y f'*. **77t7i9 !!!" 

660 PRINT " F97'7 1 *7 -”i 

67 0 D-I (2) :GOSUB 900 

680 PRINT " t'77'7 <T'j 

6 9 0 D=I (1) :GO SUB 900 

700 PRINT 

710 PRINT "* F97'77 7»9x*9 - ' 8 

720 D=I:GOSUB 900 

730 PRINT '* F97'7 ) 7 7*7 - ' i 

74 0 D-I + I (1)-I (2) :GOSUB 9 0 0:A-D 

75 0 PRINT ' 9* fca397*t - * 8 

760 D=E:GOSUB 900 

7 70 PRINT " 7*7* 7 ■ • 

780 D-A-E:GOSUB 900 

79 0 PRINT ' 8 **::* 77»J -' ; 

800 D-D/DAY:GOSUB 900 

810 PRINT:D-I*. 15 

820 PRINT '* fa*? PLAN 

830 GOSUB 900 

840 PRINT ' ( 7*9x,9 x 15* ) ' 

850 PRINT ' 8 Y*x* 77V 

860 D-D/DAY:GOSUB 900 

870 PRINT '-' 

880 PRINT:INPUT '> OK :';ANS$ 

890 GOTO 300 

9 0 0 REM-: 

910 PRINTUSING "88888888" ; D; 

92 0 PRINT " 17 " : RETURN 

1 0 0 0 REM-FILE SAVE: 

1010 INPUT "* FILE NAME -”;F$ 

1 0 2 0 OPEN "0", 1,F$ 

1030 FOR X-l TO Em 

1 04 0 PR INT81,I (X) 

1050 NEXT 

1060 CLOSE 

1070 GOTO 300 

1100 REM- INCOME DATA: 

1110 I m = 5 : E m = 1 6 

1120 FOR X-l TO Em:READ I$(X):NEXT 

1130 RETURN 

1140 DATA 7Va7*7 ,r 77 't 

1150 DATA **93,7*7,V7? 

1160 DATA 7 ' 7f, GAS, 7YK 9, TEL, NHK 

1170 DATA *77,*3*7,t*7,7a?fc,777'7,CREDIT 

1 2 0 0 REM-CALC: 

1210 IF (X > 2)* (X <- Im) THEN I - I - I (X)+D 

1 220 IF X>Im THEN E-E-I (X)+D 

1230 RETURN 


ntm-chi)'*) 11-, zoimfcm-cmi izt>(om&-cir . & 

J|XA* f 5fe_ti®"C'To 

r ^ coftlij a-ihfiStDT-lb 

i t„ a±(ow^<D 7 t en 

Bil^nTi'iTo l B III'< f> 

m, HWs Ao-triiii'ts 

I' £ To 

z<Dy°a?*y^\i., U.I-.0J; 7 iflNMSriiiUrAft**ibieAT 

u, $h<d% zv&mm 

t < nz t> 0 -r'To £tz-?z— 

<) T'T t, T -7^1 It @7>*' ; !!rWfTT! 7 Z & ft 

^S-C'T*- ib T <"(:$* L 

it, eseescitL-c^-c<Afsi'o 

mmmu 

D ( 3, 4 ) 0*542 <k-mm t 7 7 4 
Z-f-miffiZ&l £ To 1 <kTt&mcD L$ L %bZ®li 

• FOR~NEXT2 4 Z 

• z 

0 2 *T'T„ 

Prol-l-r'iJ;4OA0^ 7 X07-X b0*;&4AU) L, x"— k &-t 


s-fiTx^b’—r basick 117 






























-7"l, n-K'Uim i Lfc. C0tSf4B*3iftB»:t6 i 
EWttD (m fill) ©2 ;Atc 1:4 9 I to 3»ii:tt*Lfc 
f> ©* ? Pro3-Tt. 4 fa, »t#4«»T#M'fl:tS/4«>(::Prol-34 
^-xi: tti'i to 


Pro3 

lee 

REM-P r o 3- 


lie 

DIM D (4 0, 3) 


120 

REM-DATA MAKE: 


130 

FOR X-l TO 40 


ue 

FOR Y-l TO 3 


150 

D (X, Y) - I NT (RND (1)*101) 


160 

NEXT Y 


170 

NEXT X 


200 

REM-DATA SAVE: 


210 

F$- " 2:FILE" 


220 

OPEN "0",#1,F$ 


230 

FOR X-l TO 40 


240 

FOR Y-l TO 3 


250 

PR I NT# 1,D (X,Y) 


260 

NEXT Y 


270 

NEXT X 


280 

CL0SE#1 


300 

REM-DATA LOAD: 


310 

OPEN 'I',#1,F$ 


320 

FOR X-l TO 40 


330 

PRINT 'No. ' ;X 


340 

FOR Y-l TO 3 


350 

INPUT#1, D (X,Y) 


360 

GOSUB 500 


370 

PRINT D (X,Y) ; 


380 

NEXT Y 


390 

PRINT ;D (X, 0) 


400 

NEXT X 


410 

CLOSE#1:PR I NT 


420 

FOR Y-l TO 3 


430 

PRINT D (0,Y) ; 


440 

NEXT Y 


450 

PRINT "a'W,*0(0,0) 


460 

END 


500 

REM-SUB CALC: 


510 

D (X, 0) -D (X, 0) +D (X, Y) 


520 

D (0, Y) -D (0, Y) +D (X, Y) 


530 

D (0, 0) -D (0, 0) +D (X, Y) 


540 

RETURN 


1 A©tf/E©£-ft£liD(X, 0)Co D (0, Y) 

(:«, 3f4B£»©6tH*D(o, o) irAijlti’it. 

£f£©1Hl&tt, 

100—170ft t"-* AtlSi 
200-280ft SAVESli 
300—480ft LOAD/StSdB 
500—540ft CALCpB 

tioTl'it. -CCALCSIii:f0L-C<fc'5i'. 

i>i i) a©tjt©f : is i©t"- ztfxij ?nsi, *©tjt© 

&it*»<:iran#Lit. i <or-tt&m- 

tan#L it. Ss«m* 6 ±JI0£»B ©£«■£»•: t> /in??:? ft 

it. t***3$i: 4 0, «8rl6j, #J#|fa t f> Uill 

1111=184ft 7 4 t Bf-lfft 4 ft# 4© ft „ 

t l x"—7 Atjlftt: 5 i), #fAtrf '$ 4 J: 7 i:t 5 Uli 

;A'©t 5 1-t 4 t I'l'-TL i 7o 
(X, Y* f lS::£;? tit i' 4ttHT7ffj*&) 

100 INPUT D 
110 GOSUB 300 
01'Hft) 

300 D(X,0 ) =D(X,0) — D(X, Y) +D 
310 D(0,Y) =D(0, Y) — D(X, Y) +D 
320 D(0,0) =D(0,0) —D(X, Y) +D 
330 D(X,Y)=D: RETURN 

c nurnw r 4 x «t 4 < Aj -tr tflto -c i’ i t. 

4 4 X It ft# 4 it —f - > CALC t: i t »4©-C'j8f#i:4 1 
i L4* ! \ Prol-2©:$? t 7°© J: 5 CtxV—f-v 41£ib 4i't\ f" 
— 7 4 a — K L izS) h t <GA'©ft-C'Mtt 4 fc 

ii<S Oh! MZ 1986.4. 


FOR X = 1 TO 40 

FOR Y = 1 TO 3 

INPUT# 1, D(X, Y) 

DIO, Y) =D(0, Y) +DIX, Y) 

NEXT Y, X 
FOR Y = 1 TO 3 

FOR X = 1 TO 40 

D(X, 0) =D(X, 0) +DIX, Y) 

NEXT X : D(0, 0)=D(0, 0)+D(X, 0) 

NEXT Y 

0i5C 4 *> it©t>4 OSIftT't. -ft* 1 ^ 2 m»-7°ro) 
i, 4 ©i 7 Cit7>—^>ttt 4 4 i frisWj® L it 

to 

t©7°n X7 A 4t£Sfi L TftlA L 4fS) fJ«lfcIt2i* s Pro4 X 
to 4 ZXii.il 0 £ 7’b/ 7 AOifttiSr 

SStSLt^T < 4'Si'o 

L\3iW«i:iE?!)ltil 

At AifflWlD 01, till) e 0 _t t f x'- * 4 IdtS ? t T i' 
4 t &li. Nil t (N-l)Jt©^D±lfJt$^m*t:, Cft4E(iM 
II) eft At 4 t-xft*©J: ? 1:4 *) i t (K«JSB©gAfiK)o 
FOR X = 1 TO K 

E(X)=D(N, X)/D(N —1, X) 

NEXT X 

ft(: t"11 xffjiferItiltln] Ml t, fiJlIt4 ft4®2Tillil© 

W!)#li«aiLit. 

PRINTUSING “#. # #”; E(X) 

11 ft|jT1'Sc^f1T©WS I> TfcMt't fto 

2. 2JS^©gHt# 

1 *• G Ki •tt'jftirV.iffv t l T, Sdtl D (X, 1) ti' : Z<0 filitff, 
DIX, 2)*-Sg?g&gtt4 t, jSSJ&'ftUGti D (X, 3) UStdl 
tlfTit 

FOR X = 1 TO K 

DIX, 3) =D(X, 1) * DIX, 2) 

T=T + D(X, 3) 

NEXT X 

t 4 ') i to Jt$It# t liJSi©f?iJ-r't* ! ', 4HUIffiitt„ 

3. H*HM 

4t-4Kl “HHfiS” i:oi't Ut#AiAA'lf*,'lt L Tfa & 

Hit Pro4* J i ©ffljt'to 4 4 t'li 100 .6i|S£;© X X t 480 

A*^U4f^-ro~9*i-r45^, 10~15.£( i t4l5^, ., 

90*fXL.495*Ut77^tSL, DI77A 1) = .£&,D(t 
> t, 2) = AS t L X IS IS® US 4 ft# L X i' 1 1„ 


Pro4 


100 

REM-SD- 

lie 

DIM D (10.2) 

120 

FOR Y-l TO 2 

130 

FOR X-l TO 10 

140 

READ D(X,Y) 

150 

NEXT X 

160 

NEXT Y 

170 

DATA 5,15,25,35,45,55,65,75.85,95 

180 

DATA 0,0,2,7,15,20,21,8,4,3 

190 

REM-CALC: 

200 

FOR X-l TO 10 

210 

T-T + D (X,2) 

220 

DT-DT+D (X,1)*D (X,2) 

230 

NEXT X 

240 

DM-DT/T 














250 FOR X-l TO 10 

260 S-S + D(X,2)*(D(X,1)-DM) “2 

270 KEXT X 

298 PRINT '* SD ;SQK(S) 
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firm 4 m i l n. c c-rtt 2 !t 2 « 0 ff 

5i)AA(2, 2), B (2, 2), C (2, 2) t L T, ft 54 A t fit'l B ©ft 

SfftflJC t l 4t„ W-i£l4, 

FOR X = 1 TO 2 

FOR Y=1 TO 2 

FOR Z = 1 TO 2 

C(Y,Z) =C(Y,Z) + A(X, Z) * B(Y, X) 

NEXT Z, Y, X 
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T 7 r Ya a Rc-y Swp Del Ins / Prt End Get 

<>□ K 

[T] ^yjlSl X ^ n — yi/L it, lOtf-t'CTo 

[Y] If y>"[o]X 7 n— yi/ 0 1 

[R] ii&cAyj^r— K„ &M-t AfiHSrAtit 4©* { ffi@l4 t is 
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[ I ] 4 >-t— l'„ DOii-TTtfiyiJ £i¥A tit. 

[/] ss 2 ^insi-rniy w 1 4 1 . 

[p] EnwJo 

[ e] **-7 o mm-r- 7 % mm a t„ iei* l 4 < 4i* t §>« 

I BREAK] t-ns r L T < 4'SI'. 

[G] 14774 a (7 

>4?*AS(j;4<"r)o 4 t r J: Ti.' < Aj V® 2 it 

© r <" A < Aj 4 £XfSi 7 4r-7 7 7 4 a kWcb- ,T. I 
X, »«0«lMi:A*t'SS0t't. XT=S!, S?it" 
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1 . XT : A4liTc'45PlT--t'!if;4 Atlt4c«?A©4 ? 

Ct 4 t I'l'fL J: -5„ 

? Hello!” 

^4 y “ ”-r'H?j-©-r'to 

2. jft«t»-ntSC**L4<4o4kS. 4 t i.lJf-fcA (2, 2) ct 

fc r 256j CtiC10244 , »(t4l!cT : ^An4 < 

4 o 4 t is 14, —It lBREAKl IT < 4Si'„ ^CtBASIC^ 

tot, 

? 256*1024 

im-glf 4* t, I F5 l ^ff-tliTB-tfAtl^-KcM 

y 4 1 o rFn-r©Bni4 1 ' or t f c r t« a 4 1 . 
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: fctir < a 

100 REU ##### ? 7 3 n •) > ( C SHEET v2.0 ) »#«»« 

110 DEF KEY (1) r "!" + CHRS(13) 

120 DEF KEY (5),”GOTO 300 " + CHRS (13) 

130 WID-7: REH-> 40x25 7 '* WID 3 

140 Yb-WID:T«-16:REH -> 1 { > 3 -)f. i 91 ' f j ' j 

150 DIM D$ (Y«+1,T«+1) ,E$(Y«*1) ,Y(Y«- l) ,T(T«* 1) 

160 CLS:INPUT'< FILE NAME (NO FILE .00]): ;F$ 

170 IF F S- * 0 0" THEN 300 

180 OPEN “I',fl,F* 

190 FOR Y-l TO Yb:INPUTMI.ES (X) :NEXT 

200 FOR T-l TO Tb 

210 FOR Y-l TO Yb 

220 IF EOF (1) THEN 250 

230 INPUTMl,DSrGOSUB 560 

240 NEXT Y,T 

250 CLOSES 1 

300 REM ***** Biin ().: 

310 GOSUB 650 

320 CURSOR 0. 2 0:PR I NT '* INPUT DATA (COMMAND FT' 

330 CURSOR 0.21:INPUT D$ 

340 IF DS<>'!' THEN 500 


350 

CURSOR 0,20 



360 

PRINT 

'T?7 

Y3 3 Rl^> Swp Del Ins / Prt 

End Get 

37 0 

INPUT 

'* INPUT COMMAND: ;DS 


380 

IF 

D$-“G" 

THEN GOSUB 1460 


390 

IF 

D S “ " I 

THEN COSUB 1600 


400 

IF 

D$- "D" 

THEN GOSUB 1800 


410 

IF 

DS-'E" 

THEN 2000 


420 

IF 

DS- "S' 

THEN GOSUB 1300 


430 

IF 

(D$ 'T 

')* ( L 0 -Tb 16) THEN L0 0 : Y 

1 :GOTO 300 

440 

IF 

D $ - " T' 

THEN L 0 L 0♦ 10: IF Tb 15<L0 THEN L0 Tb 

450 

IF 

D $ " Y “ 

THEN d Y-d Y M: IF dY>Ya WID THEN dY 0 

460 

IF 

D$- “P" 

THEN GOSUB 950 


470 

IF 

D S - /~ 

THEN GOSUB 850 


480 

IF 

D $ - " R ' 

THEN GOSUB 1200:GOTO320 


490 

GOTO 

300 



500 

REM- 

- POSITION SET: 


5 1 0 

CURSOR 0,22 

:P RI NT * 33 N 0 . ( 1 ;Yb; : 

INPUT") ;Y 

520 

IF 

Y> Yb THEN 500 


530 

CURSOR 0,23 

:PR I NT * ? 7 N 0 . ( 0 ' :Tb; : 

INPUT ") -' :T 

540 

I F 

T = 0 THEN E$ (Y) -D$:C0T0 300 


550 

GOSUB 

5 6 0 : GOTO 300 
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5 6 0 REM - CALC 

570 D-VAL (D$) :D0-VAL(D$ (Y, T)) 

580 Y (Y)-Y (Y)-D0 + D 
590 T (T)-T (T)-D0 + D 

6 0 0 Y (0) -Y (0)-D0 + D 

610 D$(Y,T)-D$ 

620 RETURN 

6 50 REM-SUB SHEET 

6 6 0 CL S 

670 FOR U-l TO WID:CURSOR U*9-7,0:PR I NT E$ (U + dY) : NEXT 
680 PRINT STRINGS (W1D*10+10, -") 

690 FOR U-l TO WID 

7 0 0 CURSOR U*9-8, 1:PRINT STR$ (U+dY) : NEXT 

710 CURSOR WIDA9+1,1:PRINT " R." 

7 2 0 FOR V-l TO 16:L-V + L0 

730 CURSOR 0,V+1:PRI NT RIGHTS (STRS (L),2) 

740 FOR U-l TO WID 

750 CURSOR Ua 9-7,V+l :PRINT D$(U+dY,L) 

7 6 0 NEXT U:CURS0R WIDa9 + 2,V+1:PR I NT T (L) 

77 0 NEXT V s CURSOR 0, 18:PRI NT STRINGS (WID*10+10, 

780 CURSOR 0, 19:PRI NT "R ~ 

7 90 FOR U-l TO WID:CURSOR Ua 9-8, 19:PR I NT Y(U+dY):NEXT 
800 CURSOR WIDA9+2, 19:P RI NT Y (0) 

810 RETURN 

850 REM - SUB /:(* 1 AVj* f'**) 

860 CURSOR 0, 2 1 : PR I NT "A (1-" ;Yml : INPUT") : " ; L 1 

870 CURSOR 0,22:PR I NT "* b*J* 7* (1-" l Ym;:INPUT") :"5L2 

880 CURSOR 0,2 3 : PR I NT "a b*■fl'A ( 1 -“; Ym ;: INPUT") : "; L3 
890 FOR T-l TO To 

9 0 0 Dl-VAL(D$ (L1,T)) :D2-VAL (DS (L2,T)) 

910 IF D 2 - 0 THEN T(T)=0:GOTO 930 

92 0 D$ (L3, T)-STR$ (D 1/D2) : REM a' 7 ) 

930 NEXT T 

940 RETURN 

95 0 REM-SUB PRINTER 

9 6 0 PRINT "i ?7 START No. (1-";Tm;:INPUT ") s";L1 

970 INPUT “ END No. : " ; L 2 

980 INPUT " 37 START No. (1-6) :";S1 

9 9 0 INPUT " END No. : ~ : S 2 

1 00 0 INPUT "a (Y/N) : ~ ; Q1 $ 

1010 INPUT "A i(Y/N):";Q2$ 

1 0 20 FOR Y = 0 TO S2-S1:LPR I NT TAB (9aY) ; E$ (Y+S 1) ;:NEXT:LPRI NT 
1030 IF Q2$<>"Y" THEN 1050 

1 0 40 LPRI NT STRINGS ( (S2-S1 + 2)A9, "-") 

1050 FOR T-Ll TO L2 
1 0 60 FOR Y- 0 TO S2-S1 

1 0 70 LPRI NT TAB (9*Y) ;D$ (Y+S1,T) !:NEXT Y 

1 080 IF Q1$=T THEN LPR I NT TAB (Y* 9) ; T (T) ; : LPR I NT 

1 0 90 LPRI NT 

1100 NEXT T: IF Ql$<>"Y" THEN RETURN 
1110 IF Q1$<>"Y" THEN RETURN 

1120 IF Q2$<>" Y" THEN 1140 

1130 LPRI NT STRINGS ( (S2S1 + 2)*9, 

1140 FOR Y= 0 TO S2-S1 

1150 LPRINT TAB (9*Y) ;Y (Y+Sl) ; 

1160 NEXT:LPRI NT TAB (Y*9) ; Y (0) :LPR I NT:LPRI NT 
1170 RETURN 

1200 REM --- SUB RENZOKU - 

1210 PRINT "A START:33(1-";Y«;:INPUT");Y 

1 2 20 PRINT " J»7 (1-':T»; : INPUT");T0 

1230 FOR T-T0 TO T. 

1240 GOSUB 650 

1250 PRINT Y;",";T; 

1 2 60 INPUT "/DATA (ESCAPE- [E]):';D$ 

1270 IF D$="E" THEN RETURN 

1280 GOSUB 560 

1290 NEXT T:RETURN 

1 300 REM SUB SWAP: 

1310 CURSOR 0,21: PR I NT SPACES (39) 

1320 CURSOR 0,21:INPUT * - [T] II [Y]:';ANS$ 

1 330 CURSOR 0,2 1:PR I NT SPACE$(39) 

1 340 CURSOR 0, 21 : INPUT "A K J*' a :" ; L 1 

1 350 CURSOR 0, 2 2= INPUT " K7*'a7 :";L2 

1360 IF ANS$-"Y" THEN 1420 

1 370 IF ANSSo'T' THEN RETURN 

1380 FOR Y-0 TO Ym 

1 390 SWAP D$(Y,L1) ,D$(Y,L2) 

1 4 00 NEXT Y: SWAP T (LI) ,T (L2) 

1410 RETURN 

1420 FOR T-0 TO Tm 

1 4 30 SWAP D$(L1,T),D$ (L2,T) 

1 440 NEXT T:SWAP E$ (L1),E$ (L2) :SWAP Y (L1),Y (L2) 

1450 T-1:RETURN 

1 4 60 REM -- GET ‘fro. FILE --- 

1 4 70 CURSOR 0,2 0:P RI NT SPACE$(39) 

1480 CURSOR 0,20 

1 4 90 INPUT "A FILE-NAME (CANCEL- [00]) : " ;ANS$ 

1 500 INPUT "a - Mia*?** :";Y 

1510 E$ (Y)-ANSS:T- 1 

1520 OPEN "I",#1,ANSS 

1 5 30 IF EOF (1) THEN 1580 

1540 IF T>T■ THEN 1580 

1550 INPUT#1,D$ 

1560 GOSUB 560 

1570 T-T+l: GOTO 1530 

1580 CLOSE:RETURN 

1600 REM --- SUB INSERT: 

1610 CURSOR 0,21=1NPUT A [R]= [D]:";ANSS 

1620 CURSOR 0,22:INPUT "A KM'a? i?:";Ll 

1 6 30 IF A N S $ -"R" THEN 1720 

1 6 4 0 IF ANSSo'D" THEN RETURN 

1650 FOR T-Tb TO Ll+1 STEP -1 


1660 FOR Y-l TO Ym 

1 67 0 D$ (Y,T)-D$ (Y,T-1) 

1 680 NEXT Y:T(T)-T (T-l) 

1690 NEXT T 

1700 FOR Y-l TO Y«:D$(Y,L1)-"":NEXT Y 

1710 T (LI)- 0 : RETURN 

1720 FOR Y-Ym TO Ll+1 STEP -1 

1730 FOR T-1 TO Tm 

1 740 D$ (Y,T)-D$ (Y-l.T) 

1 750 NEXT T:Y (Y)-Y(Y-l) 

1760 NEXT Y 

1770 FOR T-l TO Tm:D$(L1,T)-"":NEXT T 
1 780 E $(LI)-"':Y(LI)=0:RETURN 
1800 REM --- SUB DELETE: 

1810 CURSOR 0,21: INPUT "* [L] t?' J.S [U] 9x- :" : ANS$ 

1 820 CURSOR 0, 2 2: INPUT "* r 3 >> a :";L1 

1830 IF ANS$="L" THEN 1910 

1 840 IF ANS$<>"U" THEN RETURN 

1850 T=L1:FOR Y-l TO Ym:DS-"":GOSUB 560:NEXT 

1860 FOR T-Ll TO Tm 

1870 FOR Y-l TO Ym 

1880 D$ (Y,T)-DS (Y,T+1) 

1 890 NEXT Y:T (T)-T (T+l) 

1900 NEXT T:RETURN 

1910 Y-L1:FOR T-l TO Tm:DS-"":GOSUB 560:NEXT 

1920 FOR Y-L1 TO Ym 

1930 FOR T-l TO Tm 

1 940 D$ (Y,T)=D$ (Y+1,T) :NEXT T 

1 9 50 Y (Y)=Y (Y+l) :E$ (Y)-E$ (Y+l) 

1960 NEXT Y: RETURN 

2000 REM *** SAVE FILE 

2010 INPUT A INPUT FILE-NAME:"JFS 

2 0 2 0 OPEN "0",#1,F $ 

2 0 30 FOR Y-l TO Ym:PR I NT# 1,E$ (Y) : NEXT 
2040 FOR T-l TO Tm 

2050 FOR Y-l TO Ym 

2 0 6 0 PRINT#1,DS (Y,T) 

2070 NEXT Y,T 

2080 END 


Pro5 

100 REM ### (C-SHEET vl.2) ttUtttttt 

110 CLS:Xm-3:Ym-15 

120 DIM D (Xm,Ym) 

130 INPUT "X INPUT FILE-NAME (NO- [00]) :"s FS 

140 IF FS-"00" THEN 220 

150 OPEN "I",#1,FS 

160 FOR Y-l TO Ym 

170 FOR X-l TO Xm 

180 INPUT#1,D 

190 GOSUB 310 

200 NEXT X,Y 

210 CLOSE#1:X-1:Y- 1 

220 REM-main () : 

230 GOSUB 370 

240 CURSOR 0,20:PRINT 'A INPUT DATA ( [E]t-7'+*79) “ 

250 INPUT DS 

260 D-VAL (D$) :IF DS-"E" THEN 610 

270 CURSOR 0,22:1NPUT "A saNo. (1- 3)-";X 

280 IF X>3 THEN 270 

290 CURSOR 0,23:1NPUT "A 77 N 0 . (1-16) - " ;Y 
300 GOSUB 310:GOTO 220 

310 REM-SUB CALC: 

320 D (X, 0)-D (X, 0)-D (X, Y)+D 

330 D (0, Y)-D (0, Y)-D (X, Y)+D 

340 D (0, 0)-D (8, 0)-D (X, Y)+D 

350 D(X,Y)-D 
360 RETURN 

370 REM- SUB DISPLAY: 

380 CLS:PR I NT " 0 0 1 2 3 R." 

390 PRINT STRINGS(39, "-") 

400 FOR V-l TO Ym 

410 CURSOR 0,V+1:PR I NT RIGHTS (STRS (V),2) ; 

420 FOR U-l TO 3:GOSUB 580:NEXT 

430 PRINT TAB (29) ; 

44 0 U-0:GO SUB 5 9 0 :PRINT 

450 NEXT V 

4 6 0 PRINT STRINGS (39,'-") 

470 PRINT "R. " ; 

480 V - 0:FOR U-l TO 3:G0SUB 580 :NEXT 

4 9 0 PRINT TAB (29) ; 

500 U-0:V-0:GOSUB 590:PRINT 

510 PRINT "AV": 

520 FOR U-l TO 3:P RI NT TAB(Ua9-7); 

530 PRINT TAB (U* 9-7) ; 

54 0 PRINTUSING "######.#";D (U,0)/Ym ; 

550 NEXT U 

5 6 0 PRINT TAB (UA9-7) ;:PRINTUSING "######.#";D (0,0)/Ym 

570 RETURN 

580 PRINT TAB (Ua9-7) ; 

59 0 PRINTUSING "########";D (U,V) ; 

600 RETURN 

610 REM- SAVE DATA: 

620 INPUT "A INPUT FILE NAME:";FS 

630 OPEN "0",#1,F$ 

640 FOR Y-l TO Ym 

650 FOR X-l TO Xm 

6 6 0 PR I NT#1,D (X,Y) 

670 NEXT X,Y 

680 CLOSE:END 


120 Oh! MZ 1986.4. 
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Izumi Daisuke 
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V =7 U £fF 5 MtU&Xttftlft t W $ A©# t-Pl'TJ /cH*' t ® 

I'ito 

£ T, Z80(ii'-?*: *.'£'©£ -5 1C LTiH''O-'50)TL <t i 
♦0ttZ8O0>ttft*+*frU, 7-»i^»5 9 
*COl.'T»**a£«>-CV.'$3:to 

xs^a^uauxA 

■5t)=lPUSH t POP©ti£0Jf £ L fc t & C x * y 7 t 5 §**>'{!} 
tH L /Jo Z8Oli^S/x*0ttfr—L £ oTfctt i>tJ$ 
<DX 5 U :.©##© Z t £x7 *7 

•t'l/jtao x7 x 7f£fo (> 

7^i:l i {fats So i£ 

C i’ i If, mu Clio /jfitli, £ o)'ik Lio Aft & £« D {fa 
IT4 , C. - C'4i’ tUDtfai: t* f -C|!ii.'0-Cto 
:ox^f?^iif;i:*S0*> o Z80©|*]S|5*' fc&i' & c 
oliX-f o£ ys-OS^BIOS (^T-^^IOCS) t* 

#LTI'S©ft. *tfi^7 7 h tiT!:J:^'CJt?0-C't* i ', 
OOOOh-FFFFh ©5 *iI3&*j»r*X* i to 

£ L -Cig&7 -* y ±0 £ C Cfjtfc L i -3 TS ©*•£(£# Lti’ 
^y'xjfii^Hto Ztt* ? SP(x7 '7 7*M >7) -C', I 'i/ 
X70(ii4rSP* s $t7 (.Vx^n-FtJ: fclTPUSH* 5 , SP 
0?t7 K V' X *> <o v>' X 7 'Mil £ B-FtK t T'POP* t frto 
fUli’5 blfCto 


tail 

PUSH© l < ff. 




0000 


1 ; 

SAMPLE - 1 



0000 


2 ; 




0000 


3 ; 

( PUSH DE 

) 


0000 


4 




8000 


5 

ORG 

8000H 


8000 


6 

; 



8000 

21 00 90 

7 

LD 

HL.9000H 

; SP 

8003 


8 

; 



8003 

2B 

9 

DEC 

HL 


8004 

72 

10 

LD 

(HL),D 


8005 

2B 

11 

DEC 

HL 


8006 

73 

12 

LD 

(HL),E 


8007 


13 

; 



8007 

C9 

14 

RET 




m l iiPUSH©#-?* S' Uv-H-C*/:!i ©-ft. SP li 
ifi:ffi5 t t A,r'fc it'Z t ciiOlT, HLvJ'*x7 4rSPU 


l,jtT TfMifc j&o ta i t„ 

1) SP^lM^t 

2 ) (SP) -±fi 8 t" x h % n - rt S 

3) SP^l^t 

4) (SP)^Tf£8 fc'x ^n-Kt5 

POPii J it fc ^©iAftSr L i to 2 £##(: L X < A?$ 1% 

1) T&8 t*x h ir(SP)*‘C. n- Kt S 

2) SPfcUg^t 

3) _tfl8 k" -7 h k (SP) 4'C.o- Kt S 


4) SPSfllf^t 



I l/J*\ SfcLte :i:*404' o SPCIii'-o/ji'£ KW&tfF- 


* 5 'A-3 Ti'S©*“o A(.'i:WA* f *S z t tgi'it. •Fn-T'ii 

* ©era%>BS 

SP(> w;7x3?-r't* ,| ?>LD^* s ($x.S0-r'to * 5 , SPfflf-C 
liLD L < , Z80f4ffl, Z 8 O 0 $S.X 8 O 8 OCS o X ii 1z o 

tz 2(®©LD#^l*'# y i-a-Ao t y *xt'SP* f f:'07 K ^ X 
%•$ Lt(,'4®4'i^-C*4: t C l £ L <t 7. 


- flM sp ©(i#4ii-<5 


0000 1 *, SAMPLE - 3 

0000 2 ; 

0000 3 

8000 4 ORG 8000H 

8000 5 ; 

8000 6 PRTHL: EQU 1FBEH 


7->>i§*N*l-2-3 121 






















8000 7 LETNL: EQU 1FEEH 

8000 8 

8000 ED 73 0E 80 9 LD (WOBKI.SP 


8004 

2A 

0E 

80 

10 

LD 

HL,(WORK) 

8007 

CD 

BE 

IF 

11 

CALL 

PRTHL 

800A 

CD 

EE 

IF 

12 

CALL 

LETNL 

800D 

C9 



13 

RET 


800E 




14 



800E 

00 

00 


15 WORK: 

DEFW 

0 


r LD (adrs), SPj C X o TSPOfitli ^ -* !) ±t:f6lft$ Hi To 
£> i (icOffifcHLv'^x^ULDL/.:* iPRTHLOT7>-T 

y -r h Loft 1 6 l -c ^ nif j; i ' ^ 11 -r t o 

r LD (adrs), SPj t r LD SP, (adrs)j (iZ80C LA’ft 

t'-fo 8080t:l££ 0 i -tf-A .0 r 2>7&AtT^& 8080-fT>s; t 

t, SPO(ii4ftiS c tBl< MWlit) 0 £-ttA„ 

8ij0T-a ? &S0-f'To 
LD HL, OOOOh 
ADD HL, SP 

r, HLCSP©fjt* f AO i-To ^liHLCSPOfit^aU-TSAf 
HO Btfrr*ftlf, ft^Ofi ? 11' l i T„ 

m i, m 2 -cxft-y?<dm¥%-> uv-h-caht** ? , 
LD^^fo-Ci'j; ttrfeh**OOJ: 5 C, POP43?ft LT x 
* -x 7 l :«A-T* AffiS^JiX DlCBftiU-j 

-a'^o-rto inc, DEco^iiSPctw^nrto-r, 

PUSH HL 
POP DE 
DEC SP 
DEC SP 
POP BC 

i. tntf, HLOI*l£4DE, BCt: ^f-L'C'PSC!; 


t (tzt* L, Ht:&i nA'iUOiiA t (.'? LOCi^T, BC = D 

Et*6«ci.'»^fc* o i-rx. ua:o^, 

LD E, L 
LD D, H 
LD C, L 
LD B, H 

l l at* ? < u o t ?*>(,, ot 

o/'t£ot( *r§i'. 

< **©1ft*«r*fcTx* yX-C'T* 5 ', CO 


l*(w:fc*S4*Mr*#o-ri'4T.«4 4-*ft LTAT < A'Siv, 




7004h 


8003 Lfcfao 3ftH7 Kvx4SUl'it. 80 

03h 11' ? Oli 9 ft, RET izfotzb t Z Aft. C C. li, h t 1 
£ 8ftOCALL4^ftm-f7>-^>*>C,#oT|it:^i:^ft4 
fe*6 7 KVx, BASIC-r't,'ilirGOSUBO)AO^!:*A- 0 £ 

To 

Z80liiLT>—7^^-S-iKTSPS, T 
T>— f-yTORET-r t'w^')foT<nfi'J; 

A-ffc < OT'To 

5fcH, ^LT 

PUSH, POPSrffifc&i'J: 5 d, fc&4# L T 

L-pifL i ). !),HLv'>T 

T Ofit 4 PUSH 11 foj, TT^-f- > ff'T -7 7“T 6 t £ 5 
):t i:(cS®iT, W 1 4#,® L&*%§j£0/l L T A i t» 
7000h*‘ £> 

PUSH HL 
CALL 8000h 
RET 

t 5 7°n A* 5 ', 8000 h**£> 

POP HL 
RET 

11' 5 TTVi-— ^yb'io 4 t L I to 

1) r PUSH HLj-T'x^ ■>7UHLv'^x^O(jS* i Tft^ *U 

2) r CALL 8000 hjT’M 0 #Hjl7004H* 5 'ffi i *1 b 

3) T7>-7>4>0 r POP HLj T'HLi:jg|D#iife-C'*S 
7004 h* j AS 

4) ) ft —> 
i U I) i To 

3)r'HLC HTfWOfit^A0 iT*“<i,SMttUMrTi+^'A' 
-f-V-O^UitLClif'Ifflr i i-TA. OA7jr liTSA U'O 
tt4)-TTo RET4^ftTAt, Z80 (i 1234 h nit t I'O 

tstc, r JP 1234HJ CfSaTS&Sfc^ftUiT. £ 

&< 1234h r.y°u^y ut'hiUH A'L 4, £ 5'C!cti'-itz i ^ 
c li t OO£*t:4&* 5 6 itTT. 
itz, Z<D r M0#ifc5rx*'x7(:«A.-CT>'< j 
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ISil Xf-ytomz 

(HL=l234HfTS) 

I) 7000h 2) 7001h 3) 8000h 4) 8001h 

PUSH HL CALL 8000m POP HL RET 



SP^ 

7004 h 


1 -- ----- 

1234 h 


1234 h 

sp —* 

1234 h 


HL=7004h 


r RET 13 x 2 v 7©i' t, 13*A±Cff AT'* 6 (#%• 7 KV x t A& 
L, t I'^teKfcfiJfflLT, fokLAi'C 

L ifa+. 



ft^PUSHLA* tRETLTi'3 T„ C ftl3S-OS© = -7L K'x 


t-rto iot i*ai3CA4JJK?c 

:7n 7"? .Aftfls 9 3 -ti-A* ? „ 

x 9 "y 7 I3PUSH, CALL t b tztfC. 7 K ^ x©<B£ i' 13 5 
ITi'S it. iSPl'p-rtcA^-C PUSH, CALL 
LilttlS 3 11:&4 fc, fob*) z fc a-S-OS^BIOS (*-*, 10 
CS) tsitli i3 SCD-rto BASICS £'f'i3, x* 
•7^t:#4gJgf»3ft'S ti7-^^4tJJ; 5i:lo-ci'it, 
10 GOSUB 100 
100 GOTO 10 

fc U7/n;7'7A^lTt2i fc £ © 5 U7-tjti 9 ittl. 
3©3 o ^^a^SP^ffioT^-o-Ci.'5 fci3l®9 3TA* f , I'T 
ftCLTt {> 5 fci'560 

-T'to 

ffic 7^8F80n~9000Ht L, C TPUSH 

13 *) tts ti7-t i4, ^ A^X°07"7 A^flSo-CAi L 



8013 

B7 



15 

OR 

A 

8014 

ED 

72 


16 

SBC 

HL, SP 

8016 

C2 

0F 

80 

17 

JP 

NZ,LOOP 

8019 

ED 

7B 

24 80 

18 

LD 

SP,(STACK) 

801D 

11 

80 

8F 

19 

LD 

DE.8F80H 

8020 

CD 

E8 

IF 

20 

CALL 

MSG 

8023 

C9 



21 

RET 


8024 




22 



8024 

00 



23 STACK: 

DEFB 

0 


8ft-r'Jiswsp©®^totteiit. 
f£, dffo-O.' < 7 l>Vxi‘; 3 i:A^G'Sii'C,irt. llft-fSP 
£9000 hI:1S:£M, SP* ? 8F80hC 4 4 i-C'PUSH^SUito SP 
*' r 8F80HC&oA'*'fc' *) *‘®ti]»fi316, 17ft-C"T fa 0 8F80h C U o 
A, oi 9fiJ9 Settlefc 

•5tbi'L>SP^7Ci:iL (18ft), 19, 20ftf'|*|#Sf:8^:S-T3 
To MSGT7V—f-y|3, DE w-7'x £ ®f(T 7 K^x*-ii ODh 
iffrSTjrf S A-TL/jb. 9, 10ft(33©As0t:Aft-C* 1 3 
To aAaAaA.t IStk? ft 3 L A#‘ ? 

3©3 7 ASrKltT, SP©«£gllLTteUft*. 

JL-- f-- & 7° n T*£ ©-OSE 13 * 

0 3TA» iS»irW?rf^S©oTlBf@l4()0i&:AT'T*lo 

3©3 5i:, x^-^lsjei^Srfiu fc#iL*-3ll>&3 L 3T 
*\ iEL < (£i'$ LTftft', w'i''xir0i5r«Lfc<4i'tSi: 
t> i o t L i-otfclf L T, fi,ii©7°n7”7 5 7 

^'©f-KjOS? It < ft3To 5 t;7 0 B7"7A4 > (1sslt-g- SP 
£ fife 13* 9 3-TAo b 1 *’ Plot'Ll 5o 

* !) 4 L jo 

PUSH, POPS’(£5 3 7i:45t 7°n7"7 5 7 7" ©lift 13 felSt: 
±.**9 iTolOO'M Y WS.<foy° u ? ? 2*4 5 35C 

llito ^^‘x^^fib©ffl^(:ffii.ft3< U-otzCifoi.'i fc PU 
SH LTfeift, l A> 6 © t> C POPTftt3V i'ATT<9o 
A 4 X* yTS’Sfiflft' £> E'S^V, 7°n7"7 5 y?V- ®AT'< 
A ^ i'o 



{, 5^T33To*> 9 i*4 L AC4o AJP^TT* 5 , Co 13 3 
ft(:t3E-7.3d4K* ? *5©TTo 

JP adrs (adrs^ S' 7 7 7° L & $ l') 

ti'535c, ^fftioL'Trpx (MMTFvx) ^L*>i7 
t>7TI 3 •y-A„^'8000 H #l&C r JP 8030 hj i t 

LiTta. 8030h*> ^I3,M*'Si.'T'— utffo b fc L 3 To -©7° 
D/7AH-/U, 4*#I37000hC b - FLtA3To S-OS 
TT3 3 0HJ£©3 t !3©WTfao 1000Hf!(:Tft3 U;i)'C>,r 
-A07*B7'7 a|37030hC#9 3 L A» 3 3 T"7000h #!&£■© £" 
iTAi t, Ttli t'8000H#Hfet:*-p r JP 8030 hj* ? #oT 

S Ti' 3 To r'-A(37030H CfobA,fSi)'C, r JP 7030 hj i: Ucl 
^>, t (3Afm©a®-C', a >&.*.-? It iA.!(Z list'i I'U L 
T'To r {> t {> t, 3 5 i' 5 7°n ^7 t-tS-otz L 'pft — 1\ ft{3H 
(Ufa-tfj {> L - C.T' r J7000j 4‘AT c t 5rT 

ft 13', r JP 8030Hj* f ^ft$ft-C, t 5 8030 hC 13 7° n 

f7 a( 3^1'A77*> liS/c 9HlJ-C'Tfto 
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8080*> C, glftetftifc 2 ©ftR 4 Z 80 <Dffl%%tz J> 7> ? E Eli E 
J*$C&WL/z0**»i5®i> Xtthtf, Z80I:$rU'^>>'7°^ 

HWii i i'5 2 t c4o/2f> U'©ft. 

7°ft» 


r *a&ftg7>>c,n'M lm (£/ztt&*>)^ 
i?t>'7 , L5:Si'j t 9 tr^-T', £{£li<4© t b’1 f to 


<X>i i> 


V7>‘7’ , J‘7T-f7 |r 


JR e 

e(4 1 /<< L©l6jfiSl 

JR cc, e 

cc« rt >7E -> a > • □ - K (Z, NZ, C, NC) 


HiJ^'-wft £©7>'f&A'''4 f -\r >7°t &©7)'IJ: e ©^ 7 t*7 
hffJBrL *t» 01 h~7Fh 4 c,r Kvx©*Si'li5^, FFh~ 
80h 4 (,7$ L' (* -5 — t -y^yy’t 6 to it f-to 01h 4 £> A& i'li 
5 ffh 4 c,/j'$ iti 5^1 4 h ©S' Y>y° i 4 D i t» 

*&&&$ 11'-5©t> s 2n* a < *#rt. 8ooo H #iiii*'e., 

8000h JR NC, 1 

8002h XOR A 

8003h LD (WORK), A 

t l' 7 y°v?7 utffa J l Lit. Bicot,'-Cl' 4 4 tff ©Sfeii 7* 
Kvx-Ct. JR^* s *S©lt8000H'C'1-* i ', :>>> V7°5t©7 K 
wx©ft#©4 t t4S©liJR^©<fc®^©#4 t 2 5, o 
i 0 8002H* ? JllEfiS t 4 4 ©f'-fo t,' * Xf£ 1 © e It 1 f 17)' f>, 
8000 H #itll©^li r 7 -v !) 4 to8002 h + 1 
li'5CLi:l!)it. 

LI, 8000h#H!i 4 r JR OFEhj 11 5 t if 5 4*>f L 4 ?. F 
Enliil4flS*>t.7 Kv-x©/J'$i'(i ?-'2^t't L©itBfcft7>' 
f>8002 H - 2&M^i?Ar>7°l i to £ Lflftf r JR OFEhj 431 

fft 4 ©ft 7>’ t, 2fUiL 5 7*A&IPI:K&I)iCPig4 bDfto 

--7- 7^4®fe«!>47) { c> Al§!7-fc >7*9 4^-9 7172t & 
Cfi,* ? SJjJR^4)l072©ii, Xffil ©e 4ftifern*.* t, 
BP#;£Lt Li 5S5 L$7>'C>ft„ r 1, 2, 3,.j Lftx.4 

M/7’/p/1'/ 7 / a I© 

m&Z'r-A 

^©jSffli&ifA* 5 *^©®, satjstffwcatfi < ot- 
Icitt-ift. 2©7'-a tlUC <t 5 4 L©7> i 't779z ( - 
7-7>'tLi'5i'5%5r$ni: LA7> ? , L L L fc ift 
It* t' 2 f L f It b Y- a 4 ©f, tf M t. 4Mb t, E 

i'©iiatj4Mt,''g-o4(.©ft. 
f -a it 2 Af jtc/, h ©r A )Wit;A© t & o f to 

1) Ei' C 4tfr©ft4'i&&t> S. 2© t&, HL'ftCf^JsE-? f 
it 4 £>4<,'(1140liA'7) o 

2) 7> 7 7 7 fftftf&ft 4i£t>5 5 o 

3) Aft4tfllU tSt-C r OxDA**i' ? j t 
■ MtS. 

4) I'iitfSA 0 j, lot i'tilft> h 4 
E4S 0 b > L liELT©^—^Cjse5o 
oJBETP'TKLAft^© 5 t>, IS] Eft^f PI LfiSc lb Z> L 


Z L 1*0 i t* s , r FF, FE, FD,.j t fti S ©li£ t7T ; C L, 

4 -9 t^H.'ftii'ioslao 

4®P)4ft#*' ; '£'S4©lt7-fc>7"7 4f$-9 
f i'4i'^'n-4"(tf, 7-fe77 0 7 4ffix.(i'to t#c4 Dit. 
LD B, 10 ;B = 10 

LOOP: DEC B ;B = B-1 

JR NZ, LOOP ; NZ4 CLOOP-'-fflttt> 77° 
11' 5 <"*i' C, S'7 yy^'v’iWi E X 7 C7^Vt/41s6i &©f 
t„ y^^i-c'cDffimmmtmxr-tyy’yb'B^i-v-ox < 
ft*®f,fAai*ffi«47 Kwxff-JfcIBa $ns :14(,7 d 
7"7A^0 cSslff I to*r4A tffif)4 L©f*4 c U» 
L*> L, ZEDAf !tC©ffit'I4«fg4«fflt 2»II, r JR-8(Z 
niiJR 0F8H©«Bt)jti'5Sieit^tf Li^LJ; ?fto 
ti£iz> X 5c4of 1'4 t, F-DOS±©7-t77'7 ffl©y-x 
4£'4#tttS t |t C, i't>i't>7^K;jS2>tCtAffifi|/7o 
72 t® 5 ©ft* 5 '.o 

Jf, JR^itJt{£l©e*' ; loM Z t**f> (> b**4 

i?c, ^>77°f ^ SlEgHA-PlGEfi'ito JlltGS (JR^f 
^•0?A©^©^> 6 7 K W Xf L 72 b) +7 Fh*- f.Jjil5EjiS- 80 h 
©P B F I72'tttto 2 tiltJR^fxA©A* t I'X X to ^2©x.6 
ItJP^^-1 tm L f IW^* ? gi' 2 t o 
L * 44"JR^4 AA4 l f 5 472' ? 11' 5 i> L 

o t 47't,®i'it. 2®lftU, 

JP 8000h ~^C3h 00h 80h <—80h OOhAtS 4© Cii^ 

JR 20h —>18h 20h 

ti'5b(7f, JP^*«3^M Y&gUm-.m,, JRi3Ht!*2^' 
J hf 2 tJEt it. 7P/7A0fJ X'* ? /J'$ <4f ti'Bi 
tjitJtf a ? 72 < , 2n* s jR©'S$tisaiiifto 
4-JJit, xt y 7©B)f^41'0cZ80©5tS;ilt;oi'-rISLf A 
X L72„ IfcJliiS C>CZ80CJt4 t t t> C, 7°n7"7A ®7iJ 
7° 7 7 7°© EiA 4 fc IS L i U A 


©*4' <o*2>*‘(2ti4t7Lti'5)o 
OtSE* 5 'TRL72&t : ®7 t», fi^ititof i'5 **#172*5: 
^tlBlL' 4©*U' < o*5*- (2 E 4 7 7 7° t i'5o t 

281:1 o f Ii7'n — t l' 7 C, L l')o 
W g^-*' ; #4 72&* ? r 4725j ©t It, 

• r 1426*’ ? j t R]* , tl72 0 . 4 7 o 2 ItEilo 

lot r k 7 h 1 , 7 7 7° 1 j t§i4. 

• r 4527*> ? j t M*‘E72„ 4 t 2 liE»o 5 t 7 lifig 
* ? jt5o lof r E 7 L 2 , 7 7 7° 2 j t§74. 

5) JjC^®Lf3)*'C . 0 

25 Lf, 8'4>t4* ! '-?-<fflt®#x.72lS4^tiins*‘4M5 

bttfto 2A.4E7 hft=acffif-©#4f I'iSiti'J© 
1ib7b\ tf'SELf i'6*472o iA©(5i|4M-C < 72'$i'„ 

1) 46017)' ? E 7 h 2 , 7 7 7° 0 

2) 25737)' ? E 7 h 0, 7 77°2 

3) 45037)' ? E 7 h 2 , 7 7 7° 2 
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11' s J P 9 t 9 ft"« At L ito 3) £ 9 45030 4 o«Sfo 5 4, 
2-71*1#?, 2 4t„ 1) J: 9 4 t 0 (if- 

t'l*4 <, 2) J: 9 5 t 3 It t 7 h t'ltft 9 4 

4 to, ft 7 ftli 5 t 3 ft fco 1t S t IE#? 144305ft' fc JiS 
rs 4 t„ 

tnr < 4 in* 

=to 

j-c/n/sA-fti', t, ©0ffc4Jf3is-tt 

intst, t-c i ttixft-c ^tift^-v^tuix 

io-cmnHA,. t:t', 

ST5/n/7At L 4 L Ac 

4t 3>k“a.-ftliSL&4ffi7f 4«T0gc4*feEL4to SLIfc 
ttRNDil'5-ft7>~ft> (147~159ff) -ttT l' 4 to 

£ s t S11 1 's t. 


RND 1: LD B, 9 
RND 2 : CALL GETKY 
OR A 

JP NZ, RNDOUT 
DEC B 

JP NZ, RND2 
JP RND1 

t Bl£9i'C, 0 £X'S£ <" & L < £JL L T i'4 to 

-C'tft’C.ft-* 5 '# Sfift i £0B0ffili, Z80CT>fr?kU, L <■' 
otJloi'ili't'Li So RNDOUT-t' r LD A, Bj 4Hif 

lx, '-'t, Acas^-ts' M-4^-^>0-r&** ? o-rto 


B = 9 

ltt^TR 9 jitr 

LRNDOUT- 

B = B —1 

Bf04 LRND2-'- 


7°n ft" 7 /,li;A0L s 4Pl£f * i<L i So 

1) Sl»?g£ 

2) t-t- K*> £> Aft J ftftiMtftfti -s ft 

3) 


tScftlx^-C'ltlH] L t&tffiftti ii'isiifis^Lt^S 4ZIf 
* s ft lit. ft t tt*B«:rn^9 4 

L £ s o 

20ft0 GETRND it, * 0£ 0 i to 9 SUSc5S*0tft'V-ft 7 
TT'to ft —Aft4{Etft 7-fc — ft'4>Uft L, sM V-H"—ft7-^t 


At) it. 


25~26tf 0 tlilt 5(5 3 H101iSffi*St'iJiBJi L 4 L ft to, #M L T 
<A"$1' 0 27~29ftit7V/f ft* — 0f isttt. r—jUCOig 
'¥X‘b\1tfbti't > f£ < 4-o A t £ i;J?Lt < A5i'. JfetfiiHtf 
to (ft HIT) t (ftCHIP) i:li«HU0b 7 h tf-yZOS^S 
oTi'itot, (3o~32ft) Aftsnftfti® 

t 0SB-O-CI4I.' t) 4 to 

GETL 14 DE i^'x ft07Rt 7 Ku-X*> C, 1 ft Aft 4t 5ft 

de MuirxJf-a-r-tMsnu-aA 

feo 012301 Aft LAC), (DE) =30h, (DE + 1)=31h, (DE + 2) 
= 32 h , (DE + 3)=33Ht4oTi'4to tW:^$LAS(i7x 
ft— a— Kt* 144 < Scffit LT?lt$4f-Ci.'S0-C', 7xft-a 
-K4l!cfjICii;L-t*-i?,(34~35ft)BB-g-$-ti--C J P') 4 to H8£-I4 
HorC (t 7 ) **ft 7 7'i't1' st> i t>) tC'S -ft Y'Vu — *- > tT’ft 
I' 4 t„ 4 X?£SB0M&* ? i&6 O A f,*S*P«frC't.' 



(ft HIT)* 5 4 4 0 ^:S[5^ A 9 t s ft ttt" END - tft^ 4t 
(40~42ft) o 4 sffctmif, t-y)^Oto±i:l, *ti't 
^6ofi$ftit. cftctoT, Jfei:Aft.$<xA4o03Bc 
t : 0mA-®m4'^?t2»0-r't(43~49ft) o S-OS “MACE” 
X'liZ 0gtf1ft4 L 4 -ftA-o “MACE” 0 7 — x !) x h*TBL 1 1 > 
s ft^V^ft 9 4 ttu 1 4SWORD0 2 o0r 

-7'V0f*ft]0lis (X1I4TBL1, MZI4MXTBL) Cfie-o T* £ 
& x ft If “SWORD” t II] L n > h o ->» a - K'* 5 '^ftt' His 
C4 t> 4 to t - ft ^ mmso~ 58ftt , flR'&4B*Sfti L 41o 
H or C 0-ft7>—ft V-Ct*L 33-39ft-Tfeft*> i)©isi:, 
B t DE w^'x J?4ffiftL-tfe*-4Dftif4 9 4 ft A (67~68ft) 0 
B ntxtli 4-»l ^ t ^JLL 4 t„ B= 4 -T'AftX^© 1 
B= 1 •C'4Xtl4 s Ai:Aoli.'it. n -y h *> 

t's*‘45f*‘*Si:(i, *1tUUlS:SLAa^9a0nX^i tlt$5 
tS'il'Ift* 9 4 to wft4 J Po-ri,'5 0*'>69~76ft-r'toSNU 
M(Secret NUMber 0«S) + 4 — Bt't*' <7, B=4^B=1^A 
ftt, HLftnXfg^Jt: t 
ft^UGETRNDTrt**, lOlft0 r CALL RNDjir'gLtSc9 
ii* f to CHECK % => L T, -t"n 7 7 T i'A 0Lt 

fjt:-b 7 1 L A$c t Is] LA*, tt'S-tf, is— ® lOi ft^M 
9 4 to 

w 0 CHECK si'—ft > li filft i 01', ')§-71 ^ Afft*t, A 4 
4§iftt^^r Kw-X^lj^AtHL CAftTfct'-r < ftit. £ 
■oX r LD (HL), Aj Aft IX' nXtli’t 7 h $ft50trt (104 
ft)„ 127ft0 r CP 10 j If-t'n 7 7 ft"4 !) -t 7 h t & A*t’t„ A 
t: it 0 — 9 0gL&* ? Ao 11' 4 t*‘ ©, £t/7ftBi:4 9 4t 
fto 127ftt'4ft"C0W:3* f 4^40*'li< A"51'„ 
131ft0 3 o 010 It ft" 5 --T'to CHECK 4 t fttf d ft* 5 'iZ>W 
431* i ft*‘S-r'L t s„ 

^Ctftlt, J8000t3?ftf&x^-x/t-irAAi't < A'Jt'o# 
4 0tff0-t 7 h^70)t.i*ir'to SiiftAAt'-C, ft 
44of Aft 2, &4#ftt^ 4 t <DX' 4 tfff 

Aft L 4 t„ < ft<"fti|s]LI&t : * 5 '4i}T04'i:^ftAt’t s&f 
L T < A"$ i'„ te*4«^LT < ft4t*>f», @$A0WI»r4® 
SS4HIffi L T x > tf^-ft**# x ft ( ? )&fjS4fiS LT AT ( A" 
ft'o ffiPd4fef 9 L 4 to tft0sl0frPS'C'BE7-Ci'AC0ft- 
A4»fD : «:4 IT < ftftfctPa, ft 9 * f t So 


7'>>H-($Sl-2'3 125" 











MX hi gt&'C'r-A yvyyx h 


8000 

CD 

D0 

IF 

FE 

0D 

CA 

0 0 

80 

: 11 

8078 

80 

7D 

90 

6F 

FI 

BE 

CA 

9C 

: 11 

80D8 

0A 

00 

00 

00 

00 

49 

4E 

50 

: FI 

8008 

CD 

A6 

80 

CD 

EE 

IF 

11 

DD 

: BB 











80E0 

55 

54 

20 

4E 

55 

4D 

42 

45 

: 40 

8010 

80 

CD 

E5 

IF 

ED 

5B 

76 

IF 

: 2E 

SUM: 

29 

F7 

5C 

8F 

AB 

D4 

39 

2D 

: F0 

80E8 

52 

0D 

00 

CB 

AF 

C4 

20 

3A 

: F7 

8018 

CD 

D3 

IF 

1A 

FE 

IB 

C8 

AF 

: 69 











80F0 

20 

00 

20 

2D 

20 

Cl 

AF 

CC 

: C9 

8020 

32 

08 

81 

32 

07 

81 

06 

04 

:7F 

8080 

80 

21 

D9 

80 

06 

04 

BE 

CA 

:8C 

80F8 

DF 

20 

3A 

20 

00 

0D 

B5 

B5 

: D0 

8028 

1A 

D6 

30 

CD 

73 

80 

13 

05 

: F8 

8088 

92 

80 

23 

05 

C2 

86 

80 

D1 

:D3 











8030 

C2 

28 

80 

3A 

08 

81 

FE 

04 

: 2F 

8090 

Cl 

C9 

3A 

07 

81 

3C 

32 

07 

: Cl 

SUM: 

04 

59 

6C 

13 

39 

6E 

BB 

F3 

: 31 

8038 

CA 

69 

80 

3E 

IE 

CD 

F 4 

IF 

: EF 

8098 

81 

C3 

8F 

80 

3A 

08 

81 

3C 

: 52 











8040 

06 

06 

3E 

1C 

CD 

F4 

IF 

05 

:4B 

80A0 

32 

08 

81 

C3 

8F 

80 

06 

04 

: 97 

8100 

B1 

C0 

D8 

20 

21 

0D 

00 

00 

: 97 

8048 

C2 

44 

80 

11 

EB 

80 

CD 

E5 

: B4 

80A8 

CD 

09 

81 

CD 

BD 

80 

CA 

A8 

: D3 

8108 

00 

C5 

06 

09 

CD 

D0 

IF 

B7 

: 47 

8050 

IF 

3A 

08 

81 

CD 

Cl 

IF 

11 

: A0 

80B0 

80 

77 

3E 

23 

CD 

F4 

IF 

23 

:5B 

8110 

C2 

1A 

81 

05 

C2 

0C 

81 

C3 

: 74 

8058 

F2 

80 

CD 

E5 

IF 

3A 

07 

81 

: 05 

80B8 

05 

C2 

A8 

80 

C9 

C5 

F5 

21 

: 93 

8118 

0A 

81 

CD 

C4 

IF 

78 

Cl 

C9 

:3D 

8060 

CD 

Cl 

IF 

CD 

EE 

IF 

C3 

14 

:5E 

80C0 

D9 

80 

7D 

90 

6F 

FI 

06 

03 

: CF 











8068 

80 

11 

FD 

80 

CD 

E5 

IF 

CD 

: AC 

80C8 

23 

BE 

CA 

D4 

80 

05 

C2 

C8 

:8E 

SUM: 

7D 

20 

2C 

F2 

CF 

61 

61 

43 

:8F 

8070 

C4 

IF 

C9 

C5 

D5 

F5 

21 

DD 

: 39 

80D0 

80 

23 

FE 

0A 

Cl 

C9 

0A 

0A 

: 49 












M X h 2 v-XMXh 


0000 




1 

; 

7r 7 *-L 


808C 

C2 

86 

80 


84 

JP 

NZ,HorCl 

0000 




2 




808F 

D1 




85 HCOUT: 

POP 

DE 

0000 




3 




8090 

Cl 




86 

POP 

BC 

8000 




4 


ORG 

8000H 

8091 

C9 




87 

RET 


8000 




5 


j 


8092 





88 

; 


8000 




6 

GETKY: 

EQU 

1FD0H 

8092 

3A 

07 

81 


89 CHIP: 

LD 

A, (#CHIP) 

8000 




7 

GETL: 

EQU 

1FD3H 

8095 

3C 




90 

INC 

A 

8000 




8 

BELL: 

EQU 

1FC4H 

8096 

32 

07 

81 


91 

LD 

(♦CHIP),A 

8000 




9 

LETNL: 

EQU 

1FEEH 

8099 

C3 

8F 

80 


92 

JP 

HCOUT 

8000 




10 

PRINT: 

EQU 

1FF4H 

809C 





93 

; 


8000 




11 

PRTHX: 

EQU 

1FC1H 

809C 

3A 

08 

81 


94 HIT: 

LD 

A,(#HIT) 

8000 




12 

MSX: 

EQU 

1FE5H 

809F 

3C 




95 

INC 

A 

8000 




13 


; 


80A0 

32 

08 

81 


96 

LD 

(♦HIT),A 

8000 




14 

KBFAD: 

EQU 

1F76H 

80A3 

C3 

8F 

80 


97 

JP 

HCOUT 

8000 




15 




80A6 





98 



8000 




16 

START: 



80A6 





99 GETRND: 



8000 

CD 

D0 

IF 

17 


CALL 

GETKY 

80A6 

06 

04 



100 

LD 

B, 4 

8003 

FE 

0D 


18 


CP 

0DH 

80A8 

CD 

09 

81 


101 GTRND1: 

CALL 

RND 

8005 

CA 

00 

80 

19 


JP 

Z,START 

80AB 

CD 

BD 

80 


102 

CALL 

CHECK 

8008 

CD 

A 6 

80 

20 


CALL 

GETRND 

80AE 

CA 

A8 

80 


103 

JP 

Z.GTRNDl 

800B 

CD 

EE 

IF 

21 


CALL 

LETNL 

80B1 

77 




104 

LD 

(HL),A 

800E 

11 

DD 

80 

22 


LD 

DE,MES1 

80B2 

3E 

23 



105 

LD 

A, "♦" 

8011 

CD 

E5 

IF 

23 


CALL 

MSX 

80B4 

CD 

F4 

IF 


106 

CALL 

PRINT 

8014 




24 


; 


80B7 

23 




107 

INC 

HL 

8014 

ED 

5B 

76 IF 

25 

MAIN: 

LD 

DE,(KBFAD) 

80B8 

05 




108 

DEC 

B 

8018 

CD 

D3 

IF 

26 


CALL 

GETL 

80B9 

C2 

A8 

80 


109 

JP 

NZ,GTRND1 

801B 

1A 



27 


LD 

A,(DE) 

80BC 

C9 




110 

RET 


801C 

FE 

IB 


28 


CP 

1BH 

80BD 





111 



801E 

C8 



29 


RET 

Z 

80BD 





112 CHECK: 



801F 

AF 



30 


XOR 

A 

80BD 

C5 




113 

PUSH 

BC 

8020 

32 

08 

81 

31 


LD 

(#HIT),A 

80BE 

F5 




114 

PUSH 

AF 

8023 

32 

07 

81 

32 


LD 

(#CHIP),A 

80BF 

21 

D9 

80 


115 

LD 

HL.SNUM 

8026 

06 

04 


33 


LD 

B, 4 

80C2 

7D 




116 

LD 

A, L 

8028 

1A 



34 

MAIN 1: 

LD 

A,(DE) 

80C3 

90 




117 

SUB 

B 

8029 

D6 

30 


35 


SUB 

’0' 

80C4 

6F 




118 

LD 

L, A 

802B 

CD 

73 

80 

36 


CALL 

HorC 

80C5 

FI 




119 

POP 

AF 

802E 

13 



37 


INC 

DE 

80C6 

06 

03 



120 

LD 

B, 3 

802F 

05 



38 


DEC 

B 

80C8 

23 




121 CHCK1: 

INC 

HL 

8030 

C2 

28 

80 

39 


JP 

NZ.MAINl 

80C9 

BE 




122 

CP 

(HL) 

8033 

3A 

08 

81 

40 


LD 

A,(#HIT) 

80CA 

CA 

D4 

80 


123 

JP 

Z,CHOUT 

8036 

FE 

04 


41 


CP 

4 

80CD 

05 




124 

DEC 

B 

8038 

CA 

69 

80 

42 


JP 

Z, END 

80CE 

C2 

C8 

80 


125 

JP 

NZ.CHCK1 

803B 

3E 

IE 


43 


LD 

A, 1EH 

80D1 

23 




126 

INC 

HL 

803D 

CD 

F4 

IF 

44 


CALL 

PRINT 

80D2 

FE 

0A 



127 

CP 

10 ; RESET Z FLAG 

8040 

06 

06 


45 


LD 

B, 6 

80D4 

Cl 




128 CHOUT: 

POP 

BC 

8042 

3E 

1C 


46 


LD 

A, 1CH 

80D5 

C9 




129 

RET 


8044 

CD 

F4 

IF 

47 

MAIN2: 

CALL 

PRINT 

80D6 





130 



8047 

05 



48 


DEC 

B 

80D6 

0A 

0A 

0A 


131 

DEFB 

10:10:10 

8048 

C2 

44 

80 

49 


JP 

NZ.MAIN2 

80D9 

00 

00 

00 

00 

132 SNUM: 

DEFS 

4 

804B 

11 

EB 

80 

50 


LD 

DE.MES2 

80DD 





133 

; 


804E 

CD 

E5 

IF 

51 


CALL 

MSX 

80DD 

49 

4E 

50 

55 

134 MES1: 

DEFM 

"INPUT NUMBER" 

8051 

3A 

08 

81 

52 


LD 

A, (#HIT) 

80E1 

54 

20 

4E 

55 




8054 

CD 

Cl 

IF 

53 


CALL 

PRTHX 

80E5 

4D 

42 

45 

52 




8057 

11 

F2 

80 

54 


LD 

DE.MES3 

80E9 

0D 

00 



135 

DEFB 

0DH:0 

805A 

CD 

E5 

IF 

55 


CALL 

MSX 

80EB 

CB 

AF 

C4 

20 

136 MES2: 

DEFM 

n tvy : ” 

805D 

3A 

07 

81 

56 


LD 

A, (#CHIP) 

80EF 

3A 

20 






8060 

CD 

Cl 

IF 

57 


CALL 

PRTHX 

80F1 

00 




137 

DEFB 

0 

8063 

CD 

EE 

IF 

58 


CALL 

LETNL 

80F2 

20 

2D 

20 

Cl 

138 MES3: 

DEFM 

" - f-/7* : " 

8066 

C3 

14 

80 

59 


JP 

MAIN 

80F6 

AF 

CC 

DF 

20 




8069 




60 


; 


80FA 

3A 

20 






8069 

11 

FD 

80 

61 

END: 

LD 

DE.MES4 

80FC 

00 




139 

DEFB 

0 

806C 

CD 

E5 

IF 

62 


CALL 

MSX 

80FD 

0D 




140 MES4: 

DEFB 

0DH 

806F 

CD 

C4 

IF 

63 


CALL 

BELL 

80FE 

B5 

B5 

B1 

C0 

141 

DEFM 

"**7r; !" 

8072 

C9 



64 


RET 


8102 

D8 

20 

21 





8073 




65 




8105 

0D 

00 



142 

DEFB 

0DH: 0 

8073 




66 

HorC: 



8107 





143 



8073 

C5 



67 


PUSH 

BC 

8107 

00 




144 #CHIP: 

DEFB 

0 

8074 

D5 



68 


PUSH 

DE 

8108 

00 




145 #HIT: 

DEFB 

0 

8075 

F5 



69 


PUSH 

AF 

8109 





146 



8076 

21 

DD 

80 

70 


LD 

HL,SNUM+4 

8109 





147 RND: 



8079 

7D 



71 


LD 

A, L 

8109 

C5 




148 

PUSH 

BC 

807A 

90 



72 


SUB 

B 

810A 

06 

09 



149 RND1: 

LD 

B, 9 

807B 

6F 



73 


LD 

L, A 

810C 

CD 

D0 

IF 


150 RND2: 

CALL 

GETKY 

807C 

FI 



74 


POP 

AF 

810F 

B7 




151 

OR 

A 

807D 

BE 



75 


CP 

(HL) 

8110 

C2 

1A 

81 


152 

JP 

NZ,RNDOUT 

807E 

CA 

9C 

80 

76 


JP 

Z, HIT 

8113 

05 




153 

DEC 

B 

8081 




77 


; 


8114 

C2 

0C 

81 


154 

JP 

NZ.RND2 

8081 

21 

D9 

80 

78 


LD 

HL.SNUM 

8117 

C3 

0A 

81 


155 

JP 

RND1 

8084 

06 

04 


79 


LD 

B, 4 

811A 

CD 

C4 

IF 


156 RNDOUT: 

CALL 

BELL 

8086 

BE 



80 

HorCl: 

CP 

(HL) 

81 ID 

78 




157 

LD 

A, B 

8087 

CA 

92 

80 

81 


JP 

Z,CHIP 

81 IE 

Cl 




158 

POP 

BC 

808A 

23 



82 


INC 

HL 

81 IF 

C9 




159 

RET 


808B 

05 



83 


DEC 

B 
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520 

530 

TP T = >GII TU4PNI MVm=MVfT + 11 


20 REM 

ZU=MY<I) 



30 REM ** 52527- V'PV ** 60/12/22 

540 

PRINT " "}:GOSUB 910: 

PRINT " 

i 

35 REM 

550 

NEXT I 



40 REM MZ K/C/700/1500/2000 

560 

PRINT :ZU=SP:PRINT "7T9 

/ 7rA* 

";:gosub 910:print 

50 REM rt*V3> OH' MZ,61(3> 

570 

RETURN 



70 REM FORESIGHT 5Sf“l/ 

580 

REM 



80 REM 

590 

REM ****** M./7 / ZtM 

****** 


90 REM - 

600 

FOR 1=1 TO 2000:NEXT I 



100 DIM PI< 37).MY(16) 

610 

GOSUB 840 



110 REM ****** MAIN 7* O'?" 7L ****** 

620 

ZU=RD 



120 GOSUB 770 

630 

PRINT " M/7 / 7tAA "5 



130 GOSUB 230 

640 

GOSUB 910:PRINT 



140 GOSUB 300 

650 

RETURN 



150 GOSUB 390 

660 

REM 



160 GOSUB 480 

670 

REM ****** -ry-j / 9-t 

****** 


170 GOSUB 600 

680 

FOR 1=1 TO iooo:next I 



180 GOSUB 680 

690 

GOSUB 840 



190 L=L+1:PRINT "•>-* 7)i'79 "; L; " ■fi'f" : GOSUB 1020: GOTO 140 

700 

ZU=RD:MY(14)=RD 



200 REM ****** MAIN 7°o9“7/.-END ******* 

710 

PRINT " 7T9 7 if!£M "? 



210 REM 

720 

GOSUB 910:PRINT 



220 REM ****** 14 7-f / Al'AM ******* 

730 

FOR 1=1 TO 2000 : NEXT I 



230 FOR 1=1 TO 14 

740 

RETURN 



240 GOSUB 840 

750 

REM 



250 MV(I> =RD 

760 

REM ****** 7a f C'VT-i 

****** 


260 NEXT I 

770 

PRINT "g" 



270 RETURN 

780 

FOR 1=1 TO 37 



280 REM 

790 

PI< I)=4 



290 REM ****** A° -f / T^V T)i ******* 

800 

NEXT I 



300 FOR 1=1 TO 13 

810 

RETURN 



310 FOR J=I+1 TO 14 

820 

REM 



320 IF MY(I> <MY< J) THEN 340 

830 

REM **** AM/ tyf'i h 7)7“/ T-1^9 **** 


330 X=MY(I):MY<I)=MY< J>:MY(J)=X 

840 

RD=INT< RND(1)*37)+1 



340 NEXT J 

850 

IF PI(RD)=0 THEN 840 



350 NEXT I 

860 

IF RD/10=INT(RD/10) THEN 

O 

CD 


360 RETURN 

870 

PI(RD)=PI(RD)—1 



370 REM 

880 

RETURN 



380 REM ****** rl/fc* V LaT/aO ****** 

890 

REM 



390 PRINT "H" 

900 

REM ****** AM/ TZT9/ 7aT7a9 

****** 


400 PRINT "‘ A** NO- ":PRINT 

910 

IF ZUC10 THEN PRINT ZU ;"* 

";:goto 1010 

410 FOR 1=1 TO 14 

920 

IF ZU<20 THEN PRINT ZU-10;"7/ ";:GOTO 1010 

420 ZU=MY(I) :PRINT " "J 

930 

IF ZU<30 THEN PRINT ZU-20;"! 

";:goto ioio 

430 GOSUB 910:PRINT " ";I 

940 

IF ZU=31 THEN PRINT " h 7 "; 

:goto 

1010 

440 NEXT I*. PRINT 

950 

IF ZU=32 THEN PRINT " t 7 "; 

•.GOTO 

1010 

450 RETURN 

960 

IF ZU=33 THEN PRINT " VP- "; 

:goto 

1010 

460 REM 

970 

IF ZU=34 THEN PRINT " "5 

:goto 

1010 

470 REM ****** 2rA* / Za9Va9h -j-j "****** 

980 

IF ZU=35 THEN PRINT " A 9 “; 

:goto 

1010 

480 INPUT "XfiM / A*I/3 m 9 ";SU 

990 

IF ZU=36 THEN PRINT " *3V "5 

:goto 

1010 

490 PRINT "H" :SP=MY(SU) 

1000 IF ZU=37 THEN PRINT » A 9 " 

; 


500 PRINT " A-A NO. "SPRINT 

1010 RETURN 



510 FOR 1=1 TO 13 

1020 FOR 1=1 TO 2000:NEXT I:RETURN 
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0000 




1 

OFFSET 868AH-368AH 

368A 




2 

ORG 

368AH 

368A 




3 

; 


368A 




4 

#FPRNT 

EQU 1F9DH 

368A 




5 

#FILE 

EQU 1FA3H 

368A 




6 

tBELL 

EQU 1FC4H 

368A 




7 

#MPRNT 

EQU 1FE2H 

368A 




8 

#NL 

EQU 1FEBH 

368A 




9 

#DIR 

EQU 2006H 

368A 




10 

#ROPEN 

EQU 2009H 

368A 




11 



368A 

E5 



12 

PUSH 

HL 

368B 

EB 



13 

EX 

DE,HL 

368C 

CD 

75 

37 

14 

CALL 

FILE 

368F 

00 



15 

NOP 


3690 

CD 

09 

20 

16 

LOAD1 

CALL #ROPEN 

3693 

DA 

5B 

37 

17 

JP 

C,CMTERR 

3696 

C2 

6C 

37 

18 

JP 

NZ,CMTER1 

3699 




19 

{ 


375B 




20 

ORG 

37 5BH 

37 5B 




21 

CMTERR 


375B 

FE 

08 


22 

CP 

8 

375D 

CC 

06 

20 

23 

CALL 

Z,#DIR 

3760 

CD 

E2 

IF 

24 

CALL 

#MPRNT 

3763 

45 

52 

52 

25 

DEFM 

"ERR” 

3766 

0D 

00 


26 

DEFB 

0DH:0 

3768 

El 



27 

POP 

HL 

3769 

C3 

C4 

IF 

28 

JP 

#BELL 

376C 




29 

; 


376C 




30 

CMTER1 


376C 

CD 

9D 

IF 

31 

CALL 

#FPRNT 

376F 

CD 

EB 

IF 

32 

CALL 

#NL 

3772 

C3 

90 

36 

33 

JP 

LOAD1 

3775 




34 

; 


3775 




35 

FILE 


3775 

3E 

04 


36 

LD 

A,4 

3777 

C3 

A3 

IF 

37 

JP 

#FILE 
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GRADE 

1 

2 

3 

4 
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6 

7 

8 

9 
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■JXM JEWEL#>?'J7.h 


A000 

C3 

85 

A2 

06 

09 

23 

10 

FD 

29 


A0A0 

CD 

C5 

A0 

21 

65 

A7 

C9 

21 

: 49 

A140 

B1 

24 

10 

FD 

C9 

23 

23 

0E 

: FF 

A008 

C9 

06 

09 

2B 

10 

FD 

C9 

11 

EA 


A0A8 

AE 

A7 

CD 

C5 

A0 

21 

AE 

A7 

: FD 

A148 

00 

FE 

0A 

30 

03 

C3 

56 

Al 

: F5 

A010 

00 

00 

CD 

31 

A1 

01 

08 

09 

B1 


A0B0 

C9 

21 

F7 

A7 

CD 

C5 

A0 

21 

: DB 

Al 50 

0C 

D6 

0A 

C3 

49 

Al 

C6 

30 

:8F 

A018 

3A 

10 

B0 

FE 

01 

20 

03 

C3 

DF 


A0B8 

F7 

A7 

C9 

21 

40 

A8 

CD 

C5 

: 02 

A158 

77 

2B 

79 

0E 

00 

B7 

20 

03 

: 03 

A020 

61 

A0 

FE 

02 

20 

03 

C3 

6 B 

52 


A0C0 

A0 

21 

40 

A8 

C9 

7E 

FE 

47 

: 35 

A160 

C3 

70 

Al 

FE 

0A 

30 

03 

C3 

: D2 

A028 

A0 

FE 

03 

20 

03 

C3 

75 

A0 

9C 


A0C8 

20 

03 

CD 

F9 

A0 

FE 

4D 

20 

:F4 

A168 

76 

Al 

0C 

D6 

0A 

C3 

63 

Al 

:CA 

A030 

FE 

04 

20 

03 

C3 

7F 

A0 

FE 

05 


A0D0 

03 

CD 

E6 

A0 

CD 

F4 

IF 

23 

: 59 

A170 

36 

20 

2B 

36 

20 

C9 

C6 

30 

: 96 

A038 

05 

20 

03 

C3 

89 

A0 

FE 

06 

18 


A0D8 

10 

EB 

CD 

EE 

IF 

0D 

20 

01 

: 03 

Al 78 

77 

2B 

79 

B7 

20 

03 

C3 

73 

: 2B 

A040 

20 

03 

C3 

93 

A0 

FE 

07 

20 

3E 


A0E0 

C9 

06 

09 

C3 

C5 

A0 

E5 

F5 

: DA 











A048 

03 

C3 

9D 

A0 

FE 

08 

20 

03 

2C 


A0E8 

3E 

09 

90 

5F 

3E 

08 

91 

57 

: 64 

SUM: 

F7 

E9 

54 

0E 

34 

52 

3D 

B2 

:B7 

A050 

C3 

A7 

A0 

FE 

09 

20 

03 

C3 

F7 


A0F0 

21 

00 

B0 

73 

23 

72 

FI 

El 

: AB 











A058 

B1 

A0 

FE 

0A 

20 

03 

C3 

BB 

FA 


A0F8 

C9 

E5 

F5 

3E 

09 

90 

5F 

3E 

: 17 

A180 

Al 

C6 

30 

77 

C9 

CD 

3A 

Al 

:7F 

A060 

A0 

21 

AF 

A5 

CD 

C5 

A0 

21 

68 












Al 88 

7E 

21 

19 

B0 

FE 

FF 

20 

03 

: 88 

A068 

AF 

A5 

C9 

21 

F8 

A5 

CD 

C5 

6 D 


SUM: 

C5 

92 

B0 

E3 

E8 

0A 

90 

D7 

: 43 

A190 

C3 

97 

Al 

CD 

45 

Al 

C9 

36 

: AD 

A070 

A0 

21 

F8 

A5 

C9 

21 

41 

A6 

2F 












A198 

2A 

23 

36 

2A 

23 

36 

2A 

C9 

: F9 

A078 

CD 

C5 

A0 

21 

41 

A6 

C9 

21 

24 


A100 

08 

91 

57 

21 

06 

B0 

73 

23 

:5D 

A1A0 

21 

00 

B1 

06 

0A 

24 

36 

FF 

:3B 












A108 

72 

FI 

El 

C9 

01 

48 

00 

11 

: 67 

A1A8 

23 

36 

0D 

2B 

10 

F7 

C9 

7E 

: DF 

SUM: 

ID 

16 

5A 

0F 

C0 

80 

IE 

37 : 

: 31 


A110 

00 

C.0 

ED 

B0 

21 

00 

C0 

C9 

: 07 

A1B0 

CD 

F4 

IF 

23 

7E 

CD 

F4 

IF 

: 61 












Al 18 

7E 

FE 

4D 

20 

03 

22 

08 

B0 

: C6 

A1B8 

23 

7E 

CD 

F4 

IF 

C9 

21 

16 

: 81 

A080 

8 A 

A6 

CD 

C5 

A0 

21 

8 A 

A6 : 

: B3 


A120 

FE 

47 

20 

03 

22 

0E 

B0 

23 

:6B 

A1C0 

B0 

36 

20 

23 

36 

20 

23 

36 

:D8 

A088 

C9 

21 

D3 

A6 

CD 

C5 

A0 

21 : 

:B6 


A128 

7D 

FE 

48 

20 

01 

C9 

C3 

18 

: 88 

A1C8 

30 

21 

00 

B1 

36 

00 

C9 

CD 

: CE 

A090 

D3 

A6 

C9 

21 

1C 

A7 

CD 

C5 : 

: B8 


Al 30 

Al 

E5 

6 B 

62 

CD 

IE 

20 

El 

:3F 

A1D0 

BE 

Al 

3E 

0C 

CD 

F4 

IF 

11 

:9A 

A098 

A0 

21 

1C 

A7 

C9 

21 

65 

A 7 : 

:7A 


A138 

C9 

00 

21 

10 

B0 

46 

21 

00 

: 11 

A1D8 

0D 

01 

CD 

31 

Al 

11 

08 

A5 

:6B 


i5<? Oh! MZ 1986.4. 























THE SENTINEL 


A1E0 

CD 

E8 

IF 

11 

0D 

03 

CD 

31 

F3 


A418 

2D 

22 

02 

B0 

2D 

22 

04 

B0 

: 04 


A668 

20 

2A 

4F 

20 

23 

20 

23 

4D 

:6C 

A1E8 

A1 

11 

21 

A5 

CD 

E8 

IF 

CD 

19 


A420 

2A 

08 

B0 

2B 

22 

0A 

B0 

2B 

: 14 


A670 

4F 

20 

20 

4F 

20 

23 

20 

23 

: 64 

A1F0 

0F 

A0 

CD 

0C 

Al 

CD 

18 

Al 

AF 


A428 

22 

0C 

B0 

C9 

2A 

00 

B0 

2C 

: AD 


A678 

23 

23 

23 

23 

23 

23 

23 

20 

: 15 

A1F8 

11 

10 

05 

CD 

31 

Al 

11 

4D 

23 


A430 

22 

02 

B0 

2C 

22 

04 

B0 

2A 

: 00 























A438 

08 

B0 

23 

22 

0A 

B0 

23 

22 

: FC 


SUM: 

B7 

7 A 

73 

44 

44 

70 

C6 

EA 

:4C 

SUM: 

79 

EB 

07 

06 

6C 

D2 

89 

FA 

32 


A440 

0C 

B0 

C9 

2A 

00 

B0 

25 

22 

: A6 























A448 

02 

B0 

25 

22 

04 

B0 

2A 

08 

: DF 


A680 

20 

20 

20 

20 

20 

20 

20 

20 

: 00 

A200 

A5 

CD 

00 

w 

IF 

11 

10 

07 

CD 

6E 


A450 

B0 

CD 

09 

A0 

22 

0A 

B0 

CD 

: CF 


A688 

20 

0D 

23 

23 

23 

23 

23 

23 

: FF 

A208 

31 

A1 

11 

73 

A5 

CD 

E8 

IF 

CF 


A458 

09 

A0 

22 

0C 

B0 

C9 

0E 

F0 

:4E 


A690 

23 

23 

23 

23 

20 

4F 

20 

20 

:3B 

A210 

11 

10 

09 

CD 

31 

Al 

11 

87 

61 


A460 

06 

F0 

10 

FE 

0D 

C2 

60 

A4 : 

:D7 


A698 

20 

4F 

47 

23 

23 

20 

20 

4F 

:8B 

A218 

A5 

CD 

E8 

IF 

11 

10 

0B 

CD 

72 


A468 

C9 

E5 

2A 

00 

B0 

EB 

3E 

20 

: D1 


A6A0 

2A 

4F 

20 

20 

23 

23 

20 

20 

:3F 

A220 

31 

A1 

11 

9B 

A5 

CD 

E8 

IF 

F7 


A470 

El 

CD 

31 

Al 

CD 

F4 

IF 

C9 : 

: 29 


A6A8 

4F 

20 

4F 

20 

20 

23 

23 

20 

: 64 

A228 

11 

00 

09 

CD 

31 

Al 

11 

3A 

04 


A478 

E5 

2A 

00 

B0 

EB 

3E 

4D 

El 

: 16 


A6B0 

20 

4F 

20 

4F 

20 

20 

23 

23 

: 64 

A230 

A5 

CD 

E8 

IF 

11 

07 

09 

CD 

67 













A6B8 

20 

20 

4F 

20 

4F 

20 

20 

23 

: 61 

A238 

31 

A1 

21 

10 

B0 

7E 

21 

IE 

70 


SUM: 

1C 

CA 

87 

0F 

73 

F6 

23 

0B 

: 13 


A6C0 

23 

4D 

4F 

20 

20 

20 

4F 

20 

:8E 

A240 

B0 

CD 

45 

A1 

21 

IE 

B0 

CD 

IF 













A6C8 

23 

23 

23 

23 

23 

23 

23 

23 

: 18 

A248 

AF 

A1 

CD 

85 

Al 

11 

02 

13 

69 


A480 

CD 

31 

Al 

CD 

F4 

IF 

CD 

5E 

AA 


A6D0 

23 

23 

0D 

23 

23 

23 

23 

23 

: 02 

A250 

CD 

31 

A1 

11 

61 

A5 

CD 

E8 

6B 


A488 

A4 

C9 

2A 

0A 

B0 

7E 

FE 

20 

ED 


A6D8 

23 

23 

23 

23 

23 

20 

20 

20 

:0F 

A258 

IF 

11 

14 

13 

CD 

31 

Al 

21 

17 


A490 

20 

03 

C3 

AB 

A4 

FE 

47 

20 

9A 


A6E0 

4F 

20 

20 

47 

23 

23 

20 

20 

:5C 

A260 

19 

B0 

CD 

AF 

Al 

21 

00 

B1 

B8 


A498 

03 

C3 

AB 

A4 

FE 

4F 

20 

03 

85 


A6E8 

4F 

20 

4F 

20 

20 

23 

23 

20 

: 64 

A268 

22 

14 

B0 

C9 

11 

07 

15 

CD 

A9 


A4A0 

C3 

D3 

A4 

FE 

2A 

20 

03 

C3 

48 


A6F0 

4F 

20 

4F 

20 

4F 

20 

23 

23 

: 93 

A270 

31 

A1 

11 

40 

A5 

CD 

E8 

IF 

9C 


A4A8 

D3 

A4 

C9 

2A 

14 

B0 

23 

22 

73 


A6F8 

4F 

20 

4F 

2A 

4F 

20 

4F 

23 

:C9 

A278 

11 

14 

15 

CD 

31 

Al 

21 

16 

10 


A4B0 

14 

B0 

3A 

12 

B0 

77 

CD 

FC 

00 























A4B8 

A4 

CD 

69 

A4 

2A 

08 

B0 

36 

96 


SUM: 

04 

B3 

3A 

72 

A2 

44 

73 

44 

: 00 

SUM: 

6C 

83 

77 

E4 

07 

1C 

6C 

20 

F9 


A4C0 

20 

2A 

0A 

B0 

22 

08 

B0 

36 

14 























A4C8 

4D 

2A 

02 

B0 

22 

00 

B0 

CD 

C8 


A700 

23 

20 

4F 

20 

4F 

20 

4F 

20 

90 

A280 

B0 

CD 

AF 

A1 

C9 

CD 

A0 

Al 

A4 


A4D0 

78 

A4 

C9 

2A 

0C 

B0 

7E 

FE 

47 


A708 

23 

23 

4D 

20 

4F 

20 

4F 

20 

91 

A288 

21 

10 

B0 

36 

01 

CD 

BE 

Al 

44 


A4D8 

20 

20 

03 

C3 

E6 

A4 

FE 

47 

D5 


A710 

20 

23 

23 

23 

23 

23 

23 

23 

15 

A290 

CD 

CF 

A1 

CD 

6C 

A2 

CD 

86 

6B 


A4E0 

20 

03 

C3 

E6 

A4 

C9 

2A 

0A 

6D 


A718 

23 

23 

23 

0D 

23 

23 

23 

23 

02 

A298 

A3 

FE 

2A 

20 

03 

C3 

8D 

A2 

E0 


A4E8 

B0 

7E 

2A 

0C 

B0 

77 

2A 

04 

B9 


A720 

23 

23 

23 

23 

23 

23 

20 

4F 

41 

A2A0 

CD 

CA 

IF 

32 

12 

B0 

FE 

54 

FC 


A4F0 

B0 

EB 

CD 

31 

Al 

CD 

F4 

IF 

1A 


A728 

20 

4F 

20 

4F 

20 

23 

23 

20 

64 

A2A8 

20 

06 

CD 

05 

A3 

C3 

8D 

A2 

8D 


A4F8 

C3 

AB 

A4 

C9 

21 

00 

B1 

34 

El 


A730 

4F 

20 

2A 

20 

4F 

20 

23 

23 

6E 

A2B0 

FE 

4D 

20 

06 

CD 

7A 

A3 

C3 

IE 













A738 

4F 

20 

4F 

20 

4F 

20 

4F 

23 

BF 

A2B8 

8D 

A2 

FE 

42 

20 

06 

CD 

6C 

CE 


SUM: 

2A 

E3 

7F 

3D 

AA 

A2 

AA 

61 : 

: 20 


A740 

23 

20 

4F 

20 

20 

20 

4F 

20 

61 

A2C0 

A3 

C3 

8D 

A2 

FE 

46 

20 

06 

FF 













A748 

23 

23 

20 

4F 

20 

4F 

20 

4F 

93 

A2C8 

CD 

52 

A3 

C3 

8D 

A2 

FE 

4B 

FD 


A500 

7E 

21 

16 

B0 

CD 

45 

Al 

C9 

El 


A750 

20 

23 

23 

4D 

20 

4F 

20 

4F 

91 

A2D0 

20 

06 

CD 

FA 

A3 

C3 

FF 

A2 

F4 


A508 

48 

49 

54 

20 

4B 

45 

59 

20 

0E 


A758 

20 

47 

23 

23 

23 

23 

23 

23 

39 

A2D8 

FE 

4A 

20 

06 

CD 

15 

A4 

C3 

B7 


A510 

4B 

20 

4F 

52 

20 

4A 

20 

4F 

E5 


A760 

23 

23 

23 

23 

0D 

23 

23 

23 

02 

A2E0 

FF 

A2 

FE 

4C 

20 

06 

CD 

2C 

0A 


A518 

52 

20 

4C 

20 

4F 

52 

20 

49 

E8 


A768 

23 

23 

23 

23 

23 

23 

23 

20 

15 

A2E8 

A4 

C3 

FF 

A2 

FE 

49 

20 

06 

75 


A520 

0D 

20 

20 

20 

20 

20 

41 

4E 

3C 


A770 

4F 

20 

4F 

20 

4F 

20 

23 

23 

93 

A2F0 

CD 

43 

A4 

C3 

FF 

A2 

CD 

CD 

B2 


A528 

44 

20 

4C 

45 

54 

20 

2A 

20 

B3 


A778 

4F 

20 

4F 

20 

4F 

20 

47 

23 

B7 

A2F8 

IF 

20 

01 

C9 

C3 

93 

A2 

CD 

CE 


A530 

4D 

4F 

56 

45 

20 

54 

4F 

20 

1A 























A538 

47 

0D 

47 

52 

41 

44 

45 

0D 

C4 


SUM: 

D4 

6E 

37 

87 

16 

73 

FB 

A5 : 

: 29 

SUM: 

D6 

96 

F3 

22 

B6 

36 

D0 

11 : 

:4E 


A540 

50 

52 

45 

53 

45 

4E 

54 

20 

41 























A548 

53 

54 

45 

50 

0D 

4F 

4E 

45 

2B 


A780 

23 

20 

4F 

20 

4F 

20 

4F 

20 

90 

A300 

8A 

A4 

C3 

93 

A2 

CD 

BE 

Al 

52 


A550 

43 

45 

20 

4D 

4F 

52 

45 

20 

FB 


A788 

23 

23 

4F 

20 

2A 

20 

4F 

20 

6E 

A308 

CD 

CF 

A1 

CD 

3A 

Al 

23 

22 

2A 


A558 

2D 

2D 

2D 

2D 

2D 

2D 

20 

4D 

7B 


A790 

4F 

23 

23 

20 

4F 

20 

4F 

20 

93 

A310 

1C 

B0 

CD 

6C 

A2 

CD 

86 

A3 

9D 


A560 

0D 

54 

48 

45 

20 

53 

48 

4F 

F8 


A798 

4F 

20 

23 

23 

4D 

20 

4F 

20 

91 

A318 

FE 

2A 

20 

01 

C9 

2A 

1C 

B0 

08 


A568 

52 

54 

45 

53 

54 

20 

53 

54 

59 


A7A0 

4F 

20 

4F 

23 

23 

23 

23 

23 

6D 

A320 

7E 

FE 

0D 

20 

01 

C9 

23 

22 

B8 


A570 

45 

50 

0D 

42 

41 

43 

4B 

20 

D3 


A7A8 

23 

23 

23 

23 

23 

0D 

23 

23 

02 

A328 

1C 

B0 

FE 

4B 

20 

03 

CD 

FA 

FF 


A578 

47 

52 

41 

44 

45 

20 

2D 

2D 

DD 


A7B0 

23 

23 

23 

23 

23 

23 

23 

23 

18 

A330 

A3 

FE 

4A 

20 

03 

CD 

15 

A4 

94 













A7B8 

20 

20 

20 

20 

4F 

20 

47 

23 

59 

A338 

FE 

4C 

20 

03 

CD 

2C 

A4 

FE 

08 


SUM: 

46 

00 

< 

C0 

79 

24 

F0 

53 

DE : 

:6C 


A7C0 

23 

20 

20 

20 

4F 

4F 

20 

20 

61 

A340 

49 

20 

03 

CD 

43 

A4 

CD 

CD 

BA 












A7C8 

23 

23 

20 

20 

4F 

4F 

20 

20 

64 

A348 

IF 

20 

01 

C9 

CD 

8A 

A4 

C3 

C7 


A580 

2D 

2D 

2D 

2D 

20 

42 

0D 

46 : 

: 69 


A7D0 

4F 

23 

23 

4F 

4F 

20 

2A 

20 

9D 

A350 

12 

A3 

CD 

3A 

Al 

7E 

FE 

FF 

D8 


A588 

4F 

52 

57 

41 

52 

44 

20 

47 : 

: 36 


A7D8 

4F 

4F 

23 

23 

20 

4F 

4F 

20 

C2 

A358 

20 

03 

C3 

68 

A3 

21 

10 

B0 

D2 


A590 

52 

41 

44 

45 

20 

2D 

2D 

2D : 

: C3 


A7E0 

4F 

4F 

20 

23 

23 

4D 

20 

4F 

C0 

A360 

34 

7E 

FE 

0B 

20 

02 

36 

01 

14 


A598 

20 

46 

0D 

54 

52 

41 

43 

45 : 

:E2 


A7E8 

20 

20 

20 

20 

23 

23 

23 

23 

0C 

A368 

CD 

5E 

A4 

C9 

21 

10 

B0 

35 

AE 


A5A0 

20 

53 

48 

4F 

52 

54 

45 

53 : 

: 48 


A7F0 

23 

23 

23 

23 

23 

23 

0D 

23 

02 

A370 

7E 

B7 

20 

02 

36 

01 

CD 

5E 

B9 


A5A8 

54 

20 

2D 

2D 

20 

54 

0D 

23 : 

: 72 


A7F8 

23 

23 

23 

23 

23 

23 

23 

23 

18 

A378 

A4 

C9 

21 

00 

B1 

36 

FF 

CD 

41 


A5B0 

23 

23 

23 

23 

23 

23 

23 

20 : 

: 15 























A5B8 

23 

20 

20 

4F 

20 

20 

47 

23 : 

:5C 


SUM: 

32 

76 

A5 

47 

66 

B6 

18 

44 : 

:0C 

SUM: 

69 

87 

3D 

69 

B4 

40 

5D 

74 : 

: 5B 


A5C0 

20 

23 

20 

2A 

4F 

20 

20 

20 : 

:3C 























A5C8 

23 

20 

23 

20 

20 

4F 

20 

20 : 

: 35 


A800 

23 

20 

20 

4F 

20 

20 

20 

47 : 

: 59 

A380 

A4 

A3 

CD 

5E 

A4 

C9 

21 

00 : 

: 00 


A5D0 

4F 

23 

20 

23 

20 

20 

4F 

20 : 

: 64 


A808 

23 

23 

20 

4F 

4F 

4F 

20 

20 : 

: 93 

A388 

B1 

7E 

FE 

FA 

38 

03 

C3 

A4 : 

: C9 


A5D8 

20 

4F 

23 

20 

23 

4D 

20 

4F : 

: 91 

A810 

20 

23 

23 

20 

20 

4F 

20 

20 : 

: 35 

A390 

A3 

2A 

0E 

B0 

7E 

FE 

2A 

20 : 

: 51 


A5E0 

20 

20 

20 

23 

20 

23 

23 

23 : 

:0C 


A818 

4F 

20 

23 

23 

20 

4F 

20 

2A : 

:6E 

A398 

03 

C3 

D4 

A3 

FE 

20 

20 

03 

:7E 


A5E8 

23 

23 

23 

23 

23 

20 

20 

20 : 

:0F 


A820 

4F 

4F 

4F 

23 

23 

4F 

4F 

4F : 

: 20 

A3A0 

C3 

E8 

A3 

C9 

2A 

14 

B0 

23 : 

: 28 


A5F0 

20 

20 

20 

20 

20 

20 

20 

0D : 

: ED 


A828 

20 

20 

4F 

20 

23 

23 

4D 

4F : 

: 9 1 

A3A8 

36 

0D 

CD 

3A 

Al 

46 

21 

00 : 

: 52 


A5F8 

23 

23 

23 

23 

23 

23 

23 

23 : 

: 18 


A830 

20 

20 

20 

20 

20 

23 

23 

23 : 

: 09 

A3B0 

B1 

7E 

FE 

FA 

38 

03 

C3 

C2 : 

:E7 













A838 

23 

23 

23 

23 

23 

23 

23 

0D : 

: 02 

A3B8 

A3 

B8 

38 

03 

C3 

C2 

A3 

C3 

: 81 


SUM: 

E0 

F7 

99 

0B 

D1 

41 

8E 

DA : 

: F5 


A840 

23 

23 

23 

23 

23 

23 

23 

23 : 

: 18 

A3C0 

C5 

A3 

3E 

2A 

C9 

CD 

3A 

Al ; 

: 41 













A848 

23 

23 

20 

4F 

20 

4F 

20 

4F : 

: 93 

A3C8 

EB 

01 

00 

01 

21 

00 

B1 

ED 

: AC 


A600 

20 

23 

20 

20 

20 

20 

20 

47 : 

:2A 


A850 

20 

23 

23 

4F 

20 

4F 

20 

4F : 

: 93 

A3D0 

B0 

3E 

2A 

C9 

CD 

C4 

IF 

CD : 

:5E 


A608 

23 

20 

23 

20 

4F 

4F 

4F 

4F : 

: C2 


A858 

20 

47 

23 

23 

20 

4F 

20 

4F : 

:8B 

A3D8 

A4 

A3 

21 

10 

B0 

34 

7E 

FE : 

:D8 


A610 

20 

23 

20 

23 

20 

20 

20 

20 : 

: 06 


A860 

20 

4F 

20 

23 

23 

4F 

20 

4F : 

: 93 

A3E0 

0B 

20 

02 

36 

01 

3E 

2A 

C9 : 

: 95 


A618 

4F 

20 

23 

20 

23 

20 

20 

20 

: 35 


A868 

20 

4F 

20 

4F 

23 

23 

20 

4F : 

: 93 

A3E8 

2A 

0E 

B0 

36 

47 

2A 

06 

B0 

: 45 


A620 

2A 

4F 

20 

23 

20 

23 

4D 

20 : 

:6C 


A870 

20 

2A 

20 

4F 

20 

23 

23 

4D : 

:6C 

A3F0 

EB 

CD 

31 

A1 

3E 

47 

CD 

F4 : 

:D0 


A628 

20 

20 

4F 

20 

23 

20 

23 

23 

: 38 


A878 

20 

4F 

20 

4F 

20 

4F 

23 

23 : 

: 93 

A3F8 

IF 

C9 

2A 

00 

B0 

24 

22 

02 

:0A 


A630 

23 

23 

23 

23 

23 

23 

20 

20 : 

: 12 























A638 

20 

20 

20 

20 

20 

20 

20 

20 

: 00 


SUM: 

6D 

FF 

70 

5B 

41 

B9 

6B 

9D : 

: 39 

SUM: 

8B 

82 

E9 

BC 

BB 

Al 

0C 

37 

: 51 


A640 

0D 

23 

23 

23 

23 

23 

23 

23 : 

: 02 























A648 

23 

20 

23 

20 

20 

20 

20 

20 

: 06 


A880 

23 

23 

23 

23 

23 

23 

23 

23 : 

; 18 

A400 

B0 

24 

22 

04 

B0 

2A 

08 

B0 

:8C 


A650 

47 

23 

20 

23 

20 

4F 

4F 

4F : 

: BA 


A888 

0D 








: 0D 

A408 

CD 

03 

A0 

22 

0A 

B0 

CD 

03 

: 1C 


A658 

4F 

20 

23 

20 

23 

20 

4F 

20 

: 64 












A410 

A0 

22 

0C 

B0 

C9 

2A 

00 

B0 

: 21 


A660 

20 

4F 

20 

23 

20 

23 

20 

4F 

: 64 


SUM: 

30 

23 

23 

23 

23 

23 

23 

23 : 

: 25 


—AJEWEL 137 


























J 


THE SENTINEL 


LUS2 JEWELV-X'JXS 


A00O 
A000 
A000 
A000 
A000 
A00O 
A000 
A000 
A000 
A000 
A0O0 
A000 
A000 
A000 
A000 
A000 
A000 
A000 
A000 
A000 
A000 
A000 
A000 
A0OO 
A000 
A000 
AO 00 
A0O0 
A0O0 
A000 
A000 
AO00 
A0O0 
A000 
A000 
A000 
AO03 
A0O3 
A003 
A006 
A00S 
A006 
A0O8 
A009 
A009 
AO0B 
A00B 
A00C 
A00E 
A00F 
A00F 
A012 
AO 15 
A018 
A01B 
A022 
A029 
A030 
A037 
A03E 
A045 
A04C 
A053 
A05A 
A061 
A061 
A064 
A067 
A06A 
A06B 
A06B 
A06E 
A07 1 
A074 
A975 
.A075 
A078 
A07B 
A07B 
A07F 
A07F 
A082 
A085 
A088 
A089 
A089 
A08C 
A08F 
A092 
A093 
A093 
A096 
A099 
A09C 
A09D 
A09D 
A0A0 
A0A3 
A0A6 
A0A7 
A0A7 
A0AA 
A0AD 
A0B0 
A0B1 
AOB1 
AOB4 
A0B7 
ABBA 
AOBB 
AOBB 
A0BF. 
A0C1 
A0C4 
A0C5 
AOC5 
A0C5 
A0C6 
AOCD 
A0D4 
A0D7 
A0D8 
A0DA 
AODD 
A0DE 
A0E1 
A0E3 
A0E6 
A0E6 
A0B7 


C9 

11 00 00 
CD 31 A1 
01 08 09 
3A 10 B0 
FE 01 20 
FK 02 20 
FB 03 20 
FE 04 20 
FE 05 20 
FE 06 20 
FE 07 20 
FE 08 20 
FE 09 20 
FE 0A 20 

21 AF A5 
CD C5 A0 
21 AF A5 


21 F8 AS 
CD C5 AO 
21 F8 A5 


21 41 A6 
CD C5 A0 
21 41 A6 


21 8A A6 
CD C5 AO 
21 8A A6 


21 D3 A6 
CD C5 AO 
21 D3 A6 


21 1C A7 
CD C5 A0 
21 1C A7 


21 65 A7 
CD C5 AO 
21 63 A7 


21 AE A7 
CD C5 A0 
21 AB A7 


21 F7 A7 
CD C5 AO 
21 F7 A7 


21 40 A8 
CD C5 AO 
21 40 A8 


FE 47 20 I 
FE 4D 20 < 
CD F4 IP 


20 01 C9 
06 09 
C3 C5 A0 


== JEWEL == 3.TAMGUCHI 


5 PRINT 

6 LTNL 

7 MSG 

8 BRKEY 

9 INKEY 

10 BELL 

11 WRI 

12 WRD 

13 RDI 

14 RDD 

15 FILE 

16 FRRNT 

17 XYADR 

18 SIZE 

19 DTADR 

20 LOC 

21 M0CUR 

22 MlCUR 

23 M2CUR 

24 GOCUR 

25 FIELD 

26 M0ADR 

27 M1ADR 

28 M2ADR 

29 GOADR 

30 GRADB 

31 INDAT 

32 INADR 

33 STEP 

34 SHORT 

35 TRADR 

36 GRD10 

37 DATOP 

38 ; 


ORG (A00O 
EQU JIFF4 
EQU J1 FEE 
EQU J1FE8 
EQU J1FCD 
EQU J1FCA 
EQU J1FC4 
EQU J1FAF 
EQU J1 FAC 
EQU J1FA9 
BQU J1FA6 
EQU S1FA3 
EQU J1F9D 
EQU J1F78 
EQU J1F72 
EQU J1F70 
EQU J201E 
EQU JB000 
EQU JB002 
EQU JB004 
EQU JB006 
EQU JC00O 
EQU JB008 
EQU JB00A 
BQU SB00C 
EQU JB0OE 
EQU JB010 
BQU JB012 
BQU 9B014 
EQU 9B016 
EQU SB019 
EQU JB01C 
EQU JB01K 
EQU JB100 

JP START 


;MAN0 CURSOR 
;MAN1 CURSOR 
;MAN2 CURSOR 
;GOAL CURSOR 
;FIELD 

;MAN0 ADDRBSS 
;MAN1 ADDRESS 
;MAN2 ADDRESS 
;QOAL ADDRESS 
; 1-10 

'.PUSH A (2 4 6 8) 

;INPUT DATA ADDRESS 
STEP 

;SHORT STEP NOW GRADE 
;TRACK DATA ADDRBSS 
;*•<>** 0«» GRADE 
;PRBSENT DATA TOP 


40 

41 PLUS9;-■ HL = HL + 9 I 


42 


LD B, 9 


B, 9 


■* FIELD ■ 

;CURSOR 0,0 


03 C3 61 AO 
03 C3 6B AO 
03 C3 75 A0 
03 C3 7F A0 
03 C3 89 A0 
03 C3 93 AO 
03 C3 9D A0 
03 C3 A7 A0 
03 C3 B1 A0 
03 C3 BB A0 


43 LOOP1 

44 INC HL 

45 DJNZ LOOP1 

46 BET 

47 MINUS;- 

48 

49 LOOP2 

50 DEC HL 

51 DJNZ LOOP2 

52 RET 

53 INITI;- 

54 LD DE,$0000 

55 CALL CURSR 

56 LD BC, $0908 ;8 <r . 

57 LD A,(GRADE) 

58 IF A=l THEN JP DAT1 

59 IF A=2 THEN JP DAT2 

60 IF A=3 THEN JP DAT3 

61 IF A=4 THEN JP DAT4 

62 IF A=5 THEN JP DAT5 

63 IF A=6 THEN JP DAT6 

64 IF A=7 THEN JP DAT7 

65 IF A=8 THEN JP DAT8 

66 IF A=9 THEN JP DAT9 

67 IF A=10 THEN JP DAT10 

68 DAT1;-■ GRADE 1 

69 LD HL.DATAl 

70 CALL LOOP3 

71 LD HL.DATAl 

72 RET 

73 DAT2 ;-■ GRADE 2 

74 LD HL,DATA2 

75 CALL LOOP3 

LD HL.DATA2 

RET 


77 

78 DAT3;- 


HL.DATA3 

80 CALL LOOP3 

81 LD HL.DATA3 

82 RET 

83 DAT4;- 

84 LD HL,DATA4 

85 CALL LOOP3 

86 LD HL.DATA4 

87 RET 

88 DAT5;- 

89 LD HL.DATA5 

90 CALL LOOP3 

91 LD HL.DATA5 

92 RET 

93 DAT6;- 

94 LD HL.DATA6 

95 CALL LOOP3 

96 LD HL.DATA6 

RET 


l GRADE 3 


: DAT7;- 


99 
100 
101 
102 

103 DAT8; 

104 

105 

106 

107 

108 DAT9;■ 

109 

110 
111 
112 

113 DAT10 

114 


HL.DATA7 
CALL LOOP3 
LD HL,DATA7 
RBT 

LD HL.DATA8 
CALL LOOP3 
LD HL.DATA8 
RET 

LD HL,DATA9 
CALL LOOP3 
LD HL.DATA9 
RET 

* LD HL,DATA10 


GRADE 8 


115 

CALL 

LOOP3 

116 

LD 

HL,DATA10 

117 

RET 


118 LOOP3 



119 ; 



120 

LD 

A,(HL) 

121 

IF 

A = *'G" THEN 

122 

IF 

A="M" THEN 

123 

CALL 

PRINT 

124 

INC 

HL 

125 

DJNZ 

LOOP 3 

126 

CALL 

LTNL 

127 

DEC 

C 

128 

IF 

Z THEN RET 

129 

LD 

B, 9 

130 

JP 

LOOP3 

131 MOXY; • 



132 

PUSH 

HL 

133 

PUSH 

AF 


•* MAN > CURSOR 4f 3 


A0E8 
AOEA 
A0EB 
A0BC 
A0EE 
A0EF 
A0FO 
A0F3 
A0F4 
A0F5 
• A0F6 
A0F7 
A0F8 
A0F9 
A0F9 
A0PA 
A0FB 
AOFD 
A0FE 
A0FF 
A101 
A102 
A103 
A106 
A107 
A108 
A109 
A10A 
A1 OB 
A10C 
A10C 
A10P 
Al 12 
A114 
Al 17 
Al 18 
Al 18 
Al 19 
Al 20 
Al 27 
A128 
Al 29 
A12E 
Al 31 
A131 
A132 
A133 
A134 
Al 37 
A138 
A139 
A13A 
A13A 
Al 3D 
A13B 
A141 
A141 
Al 42 
A144 
Al 45 
A145 
A146 
A147 
Al 49 
A149 
Al 50 
A151 
Al 53 
A156 
A156 
A158 
Al 59 
A15A 
A15B 
A15D 
A163 
A163 
A16A 
A16B 
A16D 
Al 70 
A170 
A172 
A173 
Al 73 
A175 
A176 
Al 76 
A17B 
A179 
A17A 
A17B 
A181 
A183 
A184 
A185 
A185 
Al 88 
A189 
A18C 
A193 
A196 
A197 
Al 97 
A199 
A19A 
A19C 
A19D 
A19F 
Al AO 
A1A0 
A1A3 
A 1A5 
A1A5 
A1A6 
A1A8 
A1A9 
Al AB 
Al AC 
Al AE 
A1AF 
A1AF 
A1B0 
A1B3 
A1B4 
A1B5 
A1B8 
A1B9 
A1BA 
A1BD 
A1BE 
A1BE 
A1C1 


C9 

01 48 00 
11 00 CO 
BD B0 
21 00 C0 
C9 


FE 4D 20 03 22 08 I 
FE 47 20 03 22 0E 1 


D6 0A 
C3 63 Al 


: 0A 30 03 C3 56 Al 


D6 0A 
C3 49 Al 


FE 0A 30 03 C3 76 Al 


21 19 BO 

FE FF 20 03 C3 97 Al 
CD 45 Al 


21 00 B1 
06 0A 


138 Oh! MZ 1986./ 


134 

LD 

A,9 


135 

SUB 

B 


136 

LD 

E.A 

'.CURSOR X 

137 

LD 

A,8 


138 

SUB 

C 


139 

LD 

D, A 

'.CURSOR Y 

140 

LD 

HL.M0CUR 


141 

LD 

(HL),E 


142 

INC 

HL 


143 

LD 

(HL),D 


144 

POP 

AF 


145 

POP 

HL 


146 

RET 



147 GOXY; 



-m GOAL ) CURSOR 44 B 

148 

PUSH 

HL 


149 

PUSH 

AF 


150 

LD 

A,9 


151 

SUB 

B 


152 

LD 

E, A 

;CURSOR X 

153 

LD 

A,8 


154 

SUB 

C 


155 

LD 

D.A 

;CURSOR Y 

156 

LD 

HL,GOCUR 


167 

LD ’ 

(HL),E 


158 

INC 

HL 


159 

LD 

(HL),D 


160 

POP 

AF 


161 

POP 

HL 


162 

RET 



163 COPY; 



-■ DATA TO FIELD B 

164 

LD 

BC,$0048 

;72 BYTE 

165 

LD 

DE,FIELD 


166 

LDIR 



167 

LD 

HL.FIBLD 


168 

RET 



169 MGADR 



-■ MAN GOAL ADDRESS ■ 

170 

’ld 

A,(HL) 


171 

IF 

A="M" THBN LD (M0ADR),HL 

172 

IP 

A="G" THEN LD (GOADR),HL 

173 

INC 

HL 


174 

LD 

A, L 


175 

IF 

A=$48 THBN RET 

176 

JP 

MGADR 


177 CURSR 



-■ DE - CURSOR X.Y ■ 

178 

PUSH 

HL 


179 

LD 

L,B 


180 

LD 

H.D 


181 

CALL 

LOC 


182 

POP 

HL 


183 

RET 



184 

NOP 



185 RINC;- 



-■ GRADE DATA TOP « 

186 

LD 

HL,GRADE 


187 

LD 

B.(HL) 


188 

LD 

HL,DATOP 


189 L00P6 




190 

INC 

H 


191 

DJNZ 

LOOP6 


192 

RET 



193 SINSU 



-■A 9 10 - ■ 

194 

'iNC 

HL 


195 

INC 

HL 


196 

LD 

C,$00 


197 L0P1 




198 

IF 

A<10 THEN 

JP LABI 

199 

INC 

C 


200 

SUB 

10 


201 

JP 

LOP1 


202 LABI 




203 

ADD 

A,$30 


204 

LD 

<HL),A 


205 

DEC 

HL 


206 

LD 

A,C 


207 

LD 

C, $00 


208 

IF 

A=0 THEN 

JP LAB2 

209 LOP2 




210 

IF 

A<10 THEN 

JP LAB3 

211 

INC 

C 


212 

SUB 

10 


213 

JP 

LOP2 


214 LAB2 




215 

LD 

(HL)," " 


216 

DEC 

HL 


217 LAB4 




218 

LD 

(HL)," " 


219 

RET 



220 LAB3 




221 

ADD 

A.$30 


222 

LD 

(HL),A 


223 

DEC 

HL 


224 

LD 

A,C 


225 

IF 

A=0 THEN 

JP LAB4 

226 

ADD 

A,$30 


227 

LD 

(HL),A 


228 

RET 



229 STPST; 



SHORT STEP tB'IS'* DATA B 

230 

CALL 

HINC 


231 

LD 

A,(HL) 


232 

LD 

HL,SHORT 


233 

IF 

A=$FF THEN JP NOTHI 

234 

CALL 

SINSU 


235 

RET 



236 NOTHI 




237 

LD 

(HL),"*" 


238 

INC 

HL 


239 

LD 

(HL) ,"*'• 


240 

INC 

HL 


241 

LD 

(HL),"*” 


242 

RET 



243 INISP 



-B SHORT STEP f. 

244 

’ld 

HL,DATOP 


245 

LD 

B, 10 


246 LOOP9 




247 

INC 

H 


248 

LD 

(HL),$FF 


249 

INC 

HL 


250 

LD 

(HL),$D 


251 

DEC 

HL 


252 

DJNZ 

LOOP9 


253 

RET 



254 PRNNN; 



-» 37* ) X* S 

255 

LD 

A,(HL) 

;100 V 9*4 

256 

CALL 

PRINT 


257 

INC 

HL 

;10 ) 9*4 

258 

LD 

A,(HL) 


259 

CALL 

PRINT 


260 

INC 

HL 

;1 / 9*4 

261 

LD 

A,(HL) 


262 

CALL 

PRINT 


263 

RET 



264 STPCL;- 


-■ CLEAR STEP « 

265 

LD 

HL.STBP 


266 

LD 

(HL)," " 


ft 6 [ s 

13) 

ot, 8 J] 13 11 CO- tr, 


► 3 r LOGOj R1460 K* A. + C 

i i KA.'C L j: ?*•„ 4 l * 3§£B tl'oU 

t 4#do-c 4 c, L.. &(16) 
































THE SENTINEL 


A362 

FE 

0B 

20 

02 

36 

01 


398 


IF 

A=11 THEN LD (HL),1 

A368 








399 

NOT 



A368 

CD 

5B 

A4 





400 


CALL 

TIMEl 

A36B 

C9 







401 


RET 


A36C 








402 

BOVBR 


-■ BACK GRADE * 

A36C 

21 

10 

BO 





403 


LD 

HL,GRADE 

A36F 

35 







404 


DEC 

(HL) 

A370 

7E 







405 


LD 

A,(HL) 

A371 

B7 

20 

02 

36 

01 



406 


IP 

A=0 THEN LD <HL),1 

A376 

CD 

5E 

A4 





407 


CALL 

TIMEl 

A379 

C9 







408 


RET 


A37A 








409 

MOVER 


-• ONCE MORE ■ 

A37A 

21 

00 

B1 





410 


’ld 

HL.DATOP 

A37D 

36 

FF 






411 


LD 

(HL),$FF 

A37F 

CD 

A4 

A3 





412 


CALL 

OVER 

A382 

CD 

5E 

A4 





413 


CALL 

TIMEl 

A385 

C9 







414 


RET 


A386 








415 

GOAL? 


-a CHBCK GOAL IN ? ■ 

A386 

21 

00 

B 1 





416 


’ld 

HL,DATOP 

A389 

7E 







417 


LD 

A,(HL) 

A38A 

FE 

FA 

38 

03 

C3 

A4 

A3 

418 


IF 

A>=250 THEN JP OVER ;STEP >= 250 

A391 

2A 

0E 

B0 





419 


LD 

HL,(GOADR) 

A394 

7B 







420 


LD 

A,(HL) 

A395 

FE 

2A 

20 

03 

C3 

D4 

A3 

421 


IF 

A="»" THEN JP GOAL! ;GOAL-***T*0 ? 

A39C 

FE 

20 

20 

03 

C3 

E8 

A3 

422 


IF 

A=" " THEN JP WRGOA ;GOAL t G 0 **4 

A3A3 

C9 







423 


RBT 


A3A4 








424 

OVER; 


-B GOAL ** TV J Ut'l m 

A3A4 








425 

; 


ONCE MORE ) T1VV7 

A3A4 

2A 

14 

B0 





426 


LD 

HL,(INADR) 

A3A7 

23 







427 


INC 

HL 

A3A8 

36 

0D 






428 


LD 

(HL),*D 

A3AA 

CD 

3A 

Al 





429 


CALL 

HINC 

A 3 AD 

46 







430 


LD 

B,(HL) 

A3AE 

21 

00 

B1 





431 


LD 

HL.DATOP 

A3B1 

7E 







432 


LD 

A,(HL) 

A3B2 

FE 

FA 

38 

03 

C3 

C2 

A3 

433 


IF 

A> =250 THEN JP NOCHA 

A3B9 

B8 

38 

03 

C3 

C2 

A3 


434 


IF 

A>=B THEN JP NOCHA 

A3BF 

C3 

C5 

A3 





435 


JP 

CHANG 

A3C2 








436 

NOCHA 



A3C2 

3B 

2A 






437 


LD 

A,"*" 

A3C4 

C9 







438 


RET 


A3C5 








439 

CHANG 


-a DATA CHANGE M 

A3CS 

CD 

3A 

Al 





440 


CALL 

HINC 

A3C8 

BB 







441 


EX 

DB.HL 

A3C9 

01 

00 

01 





442 


LD 

BC,90100 

A3CC 

21 

00 

B1 





443 


LD 

HL,SB100 

A3CF 

BD 

B0 






444 


LDIR 

;DATA 

A3D1 

3E 

2A 






445 


LD 

A, " * n 

A3D3 

C9 







446 


RET 


A3D4 








447 

GOAL! 


-a GRADE UP AFTER GOAL » 

A3D4 

CD 

C4 

IF 





448 


CALL 

BBLL 

A3D7 

CD 

A4 

A3 





449 


CALL 

OVER 

A3DA 

21 

10 

B0 





450 


LD 

HL,GRADE 

A3DD 

34 







451 


INC 

(HL) 

A3DE 

7B 







452 


LD 

A,(HL) 

A3DF 

FE 

0B 

20 

02 

36 

01 


453 


IF 

A=ll THEN LD (HL),1 

A3E5 

3E 

2A 






454 


LD 

A,"*" 

A3E7 

C9 







455 


RET 


A3E8 








456 

WRGOA 


-a GOAL J G J *9 » 

A3E8 

2A 

0K 

B0 





457 


LD 

HL,(GOADR) 

A3EB 

36 

47 






458 


LD 

(HL),“G“ 

A3ED 

2A 

06 

B0 





459 


LD 

HL.(GOCUR) 

A3F0 

EB 







460 


EX 

DE, HL 

A3F1 

CD 

31 

Al 





461 


CALL 

CURSE 

A3F4 

3E 

47 






462 


LD 

A, "G” 

A3F6 

CD 

F4 

IF 





463 


CALL 

PRINT 

A3F9 

C9 







464 


RET 


A3FA 








465 

GET2;- 



A3FA 

2A 

00 

B0 





466 


LD 

HL,(H0CUR) 

A3FD 

24 







467 


INC 

H 

A3FE 

22 

02 

B0 





468 


LD 

(M1CUR),HL 

A401 

24 







469 


INC 

H 

A402 

22 

04 

B0 





470 


LD 

(M2CUR),HL 

A405 

2A 

08 

B0 





471 


LD 

HL,(M0ADR) 

A408 

CD 

03 

A0 





472 


CALL 

PLUS9 

A40B 

22 

0A 

B0 





473 


LD 

(MlADR),HL 

A40E 

CD 

03 

A0 





474 


CALL 

PLUS9 

A411 

22 

0C 

B0 





475 


LD 

(M2ADR),HL 

A414 

C9 







476 


RET 


A415 








477 

GET4; • 



A415 

2A 

00 

B0 





478 


LD 

HL.(M0CUR) 

A418 

2D 







479 


DEC 

L 

A419 

22 

02 

B0 





480 


LD 

(M1CUB) ,H1. 

A41C 

2D 







481 


DEC 

L 

A41D 

22 

04 

B0 





482 


LD 

(M2CUR),HL 

A420 

2A 

08 

B0 





483 


LD 

HL,(M0ADR) 

A423 

2B 







484 


DEC 

HL 

A124 

22 

0A 

B0 





485 


LD 

(MIADR).HL 

A427 

2B 







486 


DEC 

HL 

A428 

22 

0C 

B0 





487 


LD 

(M2ADR),HL 

A42B 

C9 







488 


RET 


A42C 








489 

0ET6; ■ 


-a HIT L KEY ■ 

A42C 

2A 

00 

B0 





490 


LD 

HL,(M0CUR) 

A42F 

2C 







491 


INC 

L 

A430 

22 

02 

B0 





492 


LD 

(M1CUR),HL 

A433 

2C 







493 


INC 

L 

A434 

22 

04 

B0 





494 


LD 

(M2CUR),HL 

A437 

2A 

08 

B0 





495 


LD 

HL,(M0ADR) 

A4 3A 

23 







496 


INC 

HL 

A43B 

22 

0A 

B0 





497 


LD 

(MlADR),HL 

A43E 

23 







498 


INC 

HL 

A43F 

22 

0C 

B0 





499 


LD 

(M2ADR),HL 

A442 

C9 







500 


RET 


A44 3 








501 

GET8; 



A443 

2A 

00 

B0 





502 


LD 

HL,(M0CUR) 

A446 

25 







503 


DEC 

H 

A447 

22 

02 

B0 





504 


LD 

(M1 CUR) , HI. 

A44A 

25 







505 


DEC 

H 

A44B 

22 

04 

B0 





506 


LD 

(M2CUR) ,HL 

A44E 

2A 

08 

B0 





507 


LD 

HL,(M0ADR) 

A451 

CD 

09 

A0 





508 


CALL 

MINUS 

A4S4 

22 

0A 

B0 





509 


LD 

(M1ADR),HL 

A457 

CD 

09 

A0 





510 


CALL 

MINUS 

A4 5A 

22 

0C 

B0 





611 


LD 

(M2ADR),HL 

A4SD 

C9 







512 


RET 


A45E 








613 

TIMEl 


-« at* -r *- 9 

A45E 

0E 

F0 






514 


LD 

C.9F0 

A460 








515 

LOOP4 



A460 

06 

F0 






516 


LD 

B, $F0 

A462 








517 

LOOPS 



A462 

10 

FE 






518 


DJNZ 

LOOP 5 

A464 

0D 







519 


DEC 

C 

A465 

C2 

60 

A4 





520 


JP 

NZ.LOOP4 

A468 

C9 







521 


RET 


A469 








522 

CLRM0 


-B DISPLAY ; H 7 n ■ 

A469 

B5 







523 


’push 

HL 

A46A 

2A 

00 

B0 





524 


LD 

HL,(M0CUR) 

A46D 

EB 







525 


EX 

DB.HL 

A46B 

3E 

20 






526 


LD 

A," “ 

A470 

El 







527 


POP 

HL 

A471 

CD 

31 

Al 





528 


CALL 

CURSR 

A47 4 

CD 

F4 

IF 





529 


CALL 

PRINT 

A477 

C9 







530 


RET 


A478 








531 

MOVM0 



A478 

E5 







532 


PUSH 

HL 

A479 

2A 

00 

B0 





533 


LD 

HL,(M0CUR) 

A47C 

EB 







534 


EX 

DE, HL 

A47D 

3E 

4D 






535 


LD 

A, "M" 

A47F 

El 







536 


POP 

HL 


► r LOGO^/:o®lij ©Ell 

(R147) o) 4>cDfffl*C i' i' C «» fci'**o 7 r >^ 

7/^j l£fki$Ar)o Oh!MZ0^^fc--V> J f-7r>«to *■ A, U XtL % ±* f o T, 
Oh ! MZ frfc--v ^T’T'iSfH L «t 5 (&/vf s ~'' — UM*h 1 )o 

fjm Bfl(15) 


®#M^-AJEWEL 23 S 





























THE SENTINEL 


i 




A480 CD 
A483 CD 
A486 CD 
A489 C9 
A4BA 
A48A 2A 
A48D 7E 
A48E FB 
A495 FE 
A49C FE 
A4A3 FE 
A4AA C9 
A4AB 
A4AB 2A 
A4AE 23 
A4AF 22 
A4B2 3A 
A4B5 77 
A4B6 CD 
A4B9 CD 
A4BC 2A 
A4BF 36 
A4C1 2A 
A4C4 22 
A4C7 36 
A4C9 2A 
A4CC 22 
A4CF CD 
A4D2 C9 
A4D3 
A4D3 2A 
A4D6 7E 
A4D7 FE 
A4DE FE 
A4E5 C9 
A4E6 
A4E6 2A 
A4E9 7E 
A4EA 2A 
A4ED 77 
A4EE 2A 
A4F1 EB 
A4F2 CD 
A4F5 CD 
A4F8 C3 
A4FB C9 
A4FC 
A4FC 21 
A4FF 34 
A50O 7E 
A501 21 
A504 CD 
A507 C9 
A508 
A508 
A508 48 
A50F 20 
AS 16 20 
A51D 52 
A520 0D 
A521 
A621 20 
A528 44 
A52F 20 
A536 4F 
AS39 0D 
A53A 
A53A 47 
A53F OD 
A540 
A540 50 
A547 20 
A54C OD 
A54D 
A54D 4F 
A554 4F 
A55B 2D 
A560 OD 
A561 
A561 54 
A568 52 
A56F 54 
A572 OD 
A573 
A573 42 
A57A 41 
A581 2D 
A586 OD 
A587 
A587 46 
A58E 20 
A595 2D 
A59A OD 
A59B 
A59B 54 
A5A2 48 
A5A9 20 
A5AE OD 
A5AF 
A5AF 23 
A5B6 23 
A5BB 23 
A5BF 23 
A5C1 23 
A5C8 23 
A5CA 23 
A5D1 23 
A5D3 23 
A5DA 23 
A5DC 23 
A5E3 23 
A5E5 23 
A5EC 23 
A5EE 20 
A5F5 20 
A5F7 OD 
A5F8 
A5F8 23 
A5FF 23 
A601 23 
A608 23 
A60A 23 
A611 23 
A613 23 
A61A 23 
A61C 23 
A623 23 
A625 23 
A62C 23 
A62E 23 
A635 23 
A637 20 
A63E 20 
A640 OD 
A64 1 
A641 23 
A648 23 
A64A 23 
A651 23 


31 A1 
F4 IF 
5E A4 


OA BO 

20 20 03 
47 20 03 
4F 20 03 
2A 20 03 


14 BO 

14 BO 
12 BO 

FC A4 
69 A4 
08 BO 
20 

OA BO 
08 BO 
4D 

02 BO 
00 BO 
78 A4 


OC BO 

20 20 03 
47 20 03 


OA BO 

OC BO 

04 BO 

31 A1 
F4 IF 
AB A4 


00 B1 


16 BO 
45 A1 


49 54 20 
4B 20 4F 
4F 52 20 
20 49 


20 20 20 
20 4C 46 
4D 4F 56 
20 47 


52 41 44 


52 45 53 

53 54 45 


4E 45 43 
52 45 20 
2D 2D 20 


48 45 20 
54 45 53 
45 50 


41 43 4B 
44 45 20 
2D 2D 20 


4F 62 57 
47 52 41 
2D 2D 20 


52 41 43 
4F 52 54 
2D 2D 20 


23 23 23 
20 

20 20 4F 
20 

20 2A 4F 
20 

20 20 4F 
20 

20 20 4F 
20 

4D 20 4F 
20 

23 23 23 
20 

20 20 20 
20 


23 23 23 
20 

20 20 20 
20 

20 4F 4F 
20 

20 20 20 
20 

20 20 20 
20 

4D 20 20 
20 

23 23 23 
20 

20 20 20 
20 


23 23 23 
20 

20 20 20 
20 


C3 AB A4 
C3 AB A4 
C3 D3 A4 
C3 D3 A4 


C3 E6 A4 
C3 E6 A4 


4B 45 59 
52 20 4A 
4C 20 4F 


20 41 4E 
54 20 2A 
45 20 54 


45 


45 4E 54 
50 


45 20 4D 
2D 2D 2D 
4D 


53 48 4F 

54 20 53 


20 47 52 
2D 2D 2D 
42 


41 52 44 
44 45 20 
46 


45 20 53 
45 53 54 
54 


23 23 23 
20 20 47 
20 20 20 
20 20 4F 
20 20 4F 
20 20 20 
23 23 23 
20 20 20 


23 23 23 
20 20 47 
4F 4F 20 
20 4F 20 
2A 4F 20 
20 4F 20 
23 23 23 
20 20 20 


23 23 23 
20 20 47 


537 

538 

539 

540 

541 CHECK; 

542 

543 

544 

545 

546 

547 

548 

549 OKI; 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 0K2; 

567 

568 

569 

570 

571 

572 0K3; 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 STPLU; 

584 

585 

586 

587 


CALL CURSR 
CALL PRINT 
CALL TIME1 
RET 


LD 


HL,(MlADR) 
A, (HL) 

A=" " THEN 
A="CT THEN 
A="0" THEN 
A="»" THEN 


HL,(1NADR) 
HL 

(INADR),HL 
A, (INDAT) 

(HL),A 
, STPLU 
, CLRMO 
HL,(MOADR) 
(HL)," " 
HL,(M1ADR) 
(MOADR),HL 
(HL),”M" 
HL, (M1CUR) 
(MOCUR),HL 
, MOVM0 


l MAN / *xt9 i 


JP OKI 
JP OKI 
JP 0K2 
JP 0K2 

MAN J 03* 9 14 

;HIT tv* KEY ? 

; DATA Hrf 4017.1 


590 

591 MESG1; ■ 

592 1 


LD HL,(M2ADR) 
LD A,(HL) 

IF A=" " THEN . 
IF A="G" THEN , 
RET 

LD HL.(MIADR) 
LD A,(HL) 

LD HL,(M2ADR) 
LD (HL),A 

LD HL,(M2CUR) 
EX DE,HL 
CALL CURSR 
CALL PRINT 
JP OKI 
RET 

;-B 

LD HL.DATOP 
INC (HL) 

LD A,(HL) 

LD HL,STEP 

CALL SINSU 
RET 


;STEP 9 t')>Y7l 
;DISPLAY ) M ? 97 
(FIELD / N MX 

;FIELD - M V #7 
; DISPLAY - ti 7 D9 

MAN J 7494 - O,* ti'T* 


594 MESG2;■ 

595 ] 


-£ 2 

AND LET * MOVE TO G" 


596 DB SOD 

597 MESG3;-^ tvt-ir 

598 DM "GRADE" 

599 DB SOD 

600 MESG4;-V tvt-U' 

601 DM "PRESENT STEP" 

602 DB SOD 

603 MESG5;-U Mt-/ 

604 DM "ONECE MORE - 


605 D 

606 MESG6;— 

607 D 


SOD 

- —0 tvji--,' 6 

"THE SHORTEST STEP" 


608 DB SOD 

609 MESG7;-C 

610 DM "BACK GRADE - 


611 DB SOD 

612 MESG8;- H tvt-'S 

613 DM "FORWARD GRADE — 


614 DB SOD 

615 MESG9;-* 9 

616 DM "TRACE SHORTEST -- T" 


I DATA 1;-2 GRADE l 


SOD 
"******** " 

0# " 


621 I 

622 

623 1 

624 

625 ] 

626 1 

627 I 

628 DATA2; 

629 1 

630 ! 

631 i 

632 I 

633 ! 

634 

635 

636 

637 


”# *0 


4 " 
04 " 


"44444*4* " 

SOD 

-a i 

"#«##«### " 

-# G# " 

"* OOOO # " 

"4 0 4 " 

”* *0 4 " 

"#M O * " 

"###*###• ~ 

SOD 

-» | 

"######## " 

"* G# " 


A653 23 20 4F 
A65A 23 20 
A65C 23 20 4F 
A663 23 20 
A665 23 20 4F 
A66C 23 20 
A66E 23 4D 4F 
A675 23 20 
A677 23 23 23 
A67E 23 20 
A680 20 20 20 
A687 20 20 
A689 OD 
A68A 

A68A 23 23 23 
A691 23 23 
A693 23 20 4F 
A69A 47 23 
A69C 23 20 20 
A6A3 20 23 
A6A5 23 20 20 
A6AC 20 23 
A6AE 23 20 20 
A6B5 20 23 
A6B7 23 20 20 
A6BE 20 23 
A6C0 23 4D 4F 
A6C7 20 23 
A6C9 23 23 23 
A6D0 23 23 
A6D2 OD 
A6D3 

A6D3 23 23 23 
A6DA 23 23 
A6DC 23 20 20 
A6E3 47 23 
A6E5 23 20 20 
A6EC 20 23 
A6BE 23 20 4F 
A6F5 20 23 
A6F7 23 4F 20 
A6FE 4F 23 
A700 23 20 4F 
A707 20 23 
A709 23 4D 20 
A710 20 23 
A712 23 23 23 
A719 23 23 
A71B OD 
A71C 

A71C 23 23 23 
A723 23 23 
A725 23 20 4F 
A72C 20 23 
A72E 23 20 4F 
A735 20 23 
A737 23 4F 20 
A73E 4F 23 
A740 23 20 4F 
A747 20 23 
A749 23 20 4F 
A750 20 23 
A752 23 4D 20 
A759 47 23 
A75B 23 23 23 
A762 23 23 
A764 OD 
A765 

A765 23 23 23 
A76C 23 23 
A76E 23 20 4F 
A775 20 23 
A777 23 4F 20 
A77E 47 23 
A780 23 20 4F 
A787 20 23 
A789 23 4F 20 
A790 4F 23 
A792 23 20 4F 
A799 20 23 
A79B 23 4D 20 
A7A2 4F 23 
A7A4 23 23 23 
A7AB 23 23 
A7AD OD 
A7AB 

A7AE 23 23 23 
A7B5 23 23 
A7B7 23 20 20 
A7BE 47 23 
A7C0 23 20 20 
A7C7 20 23 
A7C9 23 20 20 
A7D0 4F 23 
A7D2 23 4F 4F 
A7D9 4F 23 
A7DB 23 20 4F 
A7B2 20 23 
A7E4 23 4D 20 
A7EB 20 23 
A7ED 23 23 23 
A7F4 23 23 
A7F6 OD 
A7F7 

A7F7 23 23 23 
A7FE 23 23 
A800 23 20 20 
A807 47 23 
A809 23 20 4F 
A810 20 23 
A812 23 20 20 
A819 20 23 
A81B 23 20 4F 
A822 4F 23 
A824 23 4F 4F 
A82B 20 23 
A82D 23 4D 4F 
A834 20 23 
A836 23 23 23 
A83D 23 23 
A83F OD 
A84 0 

A840 23 23 23 
A847 23 23 
A849 23 20 4F 
A850 20 23 
A852 23 4F 20 
A8S9 47 23 
A85B 23 20 4F 
A862 20 23 
A864 23 4F 20 
A86B 4F 23 
A86D 23 20 4F 
A874 20 23 
A876 23 4D 20 
A87D 4F 23 
A87F 23 23 23 
A886 23 23 
A888 OD 


4F 4F 4F 20 
20 20 4F 20 
20 2A 4F 20 
20 20 4F 20 
23 23 23 23 
20 20 20 20 

23 23 23 23 
20 20 20 4F 
4F 2A 4F 20 
4F 20 4F 20 
4F 20 4F 20 
4F 20 4F 20 
20 20 20 4F 
23 23 23 23 

23 23 23 23 
20 4F 20 20 
4F 20 4F 20 
20 4F 20 4F 
4F 2A 4F 20 
20 4F 20 4F 
4F 20 4F 20 
23 23 23 23 

23 23 23 23 
20 4F 20 4F 
20 2A 20 4F 
4F 20 4F 20 
20 20 20 4F 
20 4F 20 4F 
4F 20 4F 20 
23 23 23 23 

23 23 23 23 
20 4F 20 4F 
4F 20 4F 20 
20 4F 20 4F 
2A 20 4F 20 
20 4F 20 4F 
4F 20 4F 20 
23 23 23 23 

23 23 23 23 
20 20 4F 20 
20 4F 4F 20 
4F 4F 20 20 
20 2A 20 4F 
4F 20 4F 4F 
4F 20 20 20 
23 23 23 23 

23 23 23 23 
4F 20 20 20 
4F 4F 20 20 
4F 20 20 4F 
20 2A 4F 4F 
4F 20 20 4F 
20 20 20 20 
23 23 23 23 

23 23 23 23 
20 4F 20 4F 
4F 20 4F 20 
20 4F 20 4F 
4F 20 4F 20 
20 2A 20 4F 
4F 20 4F 20 
23 23 23 23 


641 


DM 

"4 OOOO » " 



642 


DM 

"# 0 OS” 



643 


DM 

"# O *0 # “ 



644 


DM 

"IMO 0 # " 



645 


DM 

"####»##» " 



646 


DM 




647 


DB 

SOD 



648 

DATA4 


- a 

ORADE 

4 

649 


’dm 

********* 



650 


DM 

"# 0 OGI" 



651 


DM 

"t 0*0 #" 



652 


DM 

■■* oo *" 



653 


DM 

"4 0 0 #" 



654 


DM 

"* 0 0 #" 



655 


DM 

"SMO OS" 



656 


DM 




657 


DB 

SOD 



658 

DATA 5 


- m 

GRADE 

5 

659 


DM 

"###»##•»#" 



660 


DM 

"# 0 0#" 



661 


DM 

”# 0 0 #*• 



662 


DM 

’•» 0 0 0 #" 



663 


DM 

"to 0*0 0 #” 



664 


DM 

”# O 0 0 #“ 



665 


DM 

”#M O O •” 



666 


DM 

"•*«•»#«##" 



667 


DB 

SOD 



668 

DATA6 



GRADE 

6 

669 


DM 

"###*#»###" 



670 


DM 

"# 0 0 O #" 



671 


DM 

'•#0*0 #" 



672 


DM 

"SO O 0 0#“ 



673 


DM 

"* 0 0 #" 



674 


DM 

"#000 #" 



676 


DM 

"#M 0 0 G#" 



676 


DM 

”#########" 



677 


DB 

SOD 



678 

DATA7 


-a 

GRADE 

7 

679 


’dm 

"ft####*##” 



680 


DM 

"#000#" 



681 


DM 

”#0 0 0 G#” 



682 


DM 

"#000#" 



683 


DM 

M #0 * 0 0#" 



684 


DM 

••# O 0 0 #” 



685 


DM 

”*M 0 0 O#" 



686 


DM 




687 


DB 

SOD 



688 

DATA8; 

;-- 

-a 

ORADE 

8 

689 


DM 




690 


DM 

"# o a*" 



691 


DM 

’•# 00 #" 



692 


DM 

"# 00 0#" 



693 


DM 

"#oo * 00#" 



694 


DM 

"# oo 00 #" 



695 


DM 

"#M O #" 



696 


DM 

"##•#####•" 



697 


DB 

SOD 



698 

DATA9; 


- s 

GRADE 

9 

699 


DM 




700 


DM 

"# 0 G#" 



701 


DM 

”# OOO #" 



702 


DM 

M * 0 0 #" 



703 


DM 

"# 0 *000#" 



704 


DM 

"#ooo 0 #" 



705 


DM 

"#M0 #" 



706 


DM 




707 


DB 

SOD 



708 

DATA10;- 


GRADE 

10 

709 


DM 

"*#######*" 



710 


DM 

”#000#" 



711 


DM 

"#0 O 0 0*" 



712 


DM 

"# O 0 0 •" 



713 


DM 

"#0 O 0 0#" 



714 


DM 

"•0*0#" 



715 


DM 

“#M 0 0 O#" 



716 


DM 

"•#»######” 



717 


DB 

SOD 
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■JAM LIFE GAME#>?UXh 


3000 

FD 

2A 

78 

IF 

CD 

40 

32 

CD 

: CA 

3008 

81 

31 

FD 

36 

00 

00 

FD 

36 

: 18 

3010 

01 

18 

11 

33 

30 

CD 

E8 

IF 

: 61 

3018 

D9 

21 

00 

00 

D9 

CD 

A1 

30 

: 71 

3020 

CD 

5B 

30 

CD 

A6 

32 

CD 

89 

: 53 

3028 

30 

CD 

67 

30 

CD 

CD 

IF 

28 

: 7 5 

3030 

D6 

18 

EA 

47 

45 

4E 

45 

52 

: 49 

3038 

41 

54 

49 

4F 

4E 

20 

20 

20 

: DB 

3040 

20 

20 

20 

20 

20 

20 

20 

50 

: 30 

3048 

4F 

50 

55 

4C 

41 

54 

49 

4F 

:6D 

3050 

4E 

20 

20 

20 

20 

20 

20 

20 

:2E 

3058 

20 

20 

0D 

11 

F5 

32 

21 

B5 

:5B 

3060 

36 

01 

C0 

03 

ED 

B0 

C9 

AF 

:0F 

3068 

57 

21 

F5 

32 

0E 

18 

06 

28 

: F3 

3070 

86 

27 

30 

01 

14 

23 

10 

F8 

: ID 

3078 

0D 

20 

F3 

FD 

36 

00 

IF 

FD 

:6F 

SUM: 

69 

41 

CA 

EB 

97 

F8 

B1 

B5 

: 54 

3080 

36 

01 

18 

62 

6F 

CD 

BE 

IF 

: CA 

3088 

C9 

D9 

7D 

C6 

01 

27 

6F 

7C 

: F8 

3090 

CE 

00 

27 

67 

FD 

36 

00 

0B 

:9A 

3098 

FD 

36 

01 

18 

CD 

BE 

IF 

D9 

:CF 

30A0 

C9 

21 

74 

3A 

DD 

21 

B4 

36 

: 80 

30A8 

0E 

18 

06 

28 

05 

0D 

DD 

7E 

: Cl 

30B0 

00 

3D 

28 

0A 

CD 

DA 

30 

FE 

: 44 


30B8 

03 

28 

11 

AF 

18 

10 

CD 

DA : 

: BA 

30C0 

30 

FE 

02 

28 

07 

FE 

03 

28 : 

: 88 

30C8 

03 

AF 

18 

02 

3E 

01 

77 

04 : 

: 86 

30D0 

0C 

DD 

2B 

2B 

10 

D6 

0D 

20 : 

: 52 

30D8 

D1 

C9 

78 

B7 

28 

0E 

FE 

27 : 

; 24 

30E0 

28 

14 

79 

B7 

28 

5B 

FE 

17 : 

: 04 

30E8 

28 

67 

18 

14 

79 

B7 

28 

29 : 

: 3C 

30F0 

FE 

17 

28 

39 

18 

6B 

79 

B7 : 

: 29 

30F8 

28 

29 

FE 

17 

28 

39 

18 

71 : 

: 50 

SUM: 

2A 

BC 

E4 

E9 

5F 

99 

16 

E6 : 

: A7 

3100 

DD 

7E 

D7 

DD 

86 

D8 

DD 

86 

D0 

3108 

D9 

DD 

86 

FF 

DD 

86 

01 

DD 

7C 

3110 

86 

27 

DD 

86 

28 

DD 

86 

29 

C4 

3118 

C9 

DD 

7E 

01 

DD 

86 

28 

DD 

8D 

3120 

86 

29 

C9 

DD 

7E 

FF 

DD 

86 

35 

3128 

27 

DD 

86 

28 

C9 

DD 

7E 

D8 

AE 

3130 

DD 

86 

D9 

DD 

86 

01 

C9 

DD 

46 

3138 

7E 

D7 

DD 

86 

D8 

DD 

86 

FF 

F2 

3140 

C9 

DD 

7E 

FF 

DD 

86 

01 

DD 

64 

3148 

86 

27 

DD 

86 

28 

DD 

86 

29 

C4 

3150 

C9 

DD 

7E 

D7 

DD 

86 

D8 

DD 

13 

3158 

86 

D9 

DD 

86 

FF 

DD 

86 

01 

25 

3160 

C9 

DD 

7E 

D8 

DD 

86 

D9 

DD 

15 

3168 

86 

01 

DD 

86 

28 

DD 

86 

29 

9E 

3170 

C9 

DD 

7E 

D7 

DD 

86 

D8 

DD 

13 


3178 

86 

FF 

DD 

86 

27 

DD 

86 

28 

:9A 

SUM: 

49 

36 

29 

68 

F7 

07 

D8 

92 

: 7 8 

3180 

C9 

FD 

36 

00 

00 

FD 

36 

01 

: 30 

3188 

18 

11 

18 

32 

CD 

E8 

IF 

FD 

: 44 

3190 

36 

00 

00 

FD 

36 

01 

00 

CD 

: 37 

3198 

59 

32 

FE 

0D 

C8 

FE 

55 

20 

:D1 

31A0 

10 

FD 

35 

01 

FD 

7E 

01 

FE 

: BD 

3 1A8 

FF 

20 

EC 

FD 

36 

01 

00 

18 

: 57 

31B0 

E6 

FE 

4D 

20 

10 

FD 

34 

01 

: 93 

31B8 

FD 

7E 

01 

FE 

18 

38 

D8 

FD 

:9F 

31C0 

36 

01 

17 

18 

D2 

FE 

48 

20 

:9E 

31C8 

10 

FD 

35 

00 

FD 

7E 

00 

FE 

: BB 

31D0 

FF 

20 

C4 

FD 

36 

00 

00 

18 

:2E 

3 1D8 

BE 

FE 

4B 

20 

10 

FD 

34 

00 

: 68 

3 1E0 

FD 

7E 

00 

FE 

28 

38 

B0 

FD 

: 86 

31E8 

36 

00 

27 

18 

AA 

FE 

5A 

20 

: 97 

31F0 

07 

CD 

DB 

32 

36 

01 

18 

9F 

: CF 

3 1F8 

FE 

58 

20 

08 

CD 

DB 

32 

36 

:8E 

SUM: 

9D 

98 

38 

DD 

10 

23 

87 

27 

:2B 

3200 

00 

C3 

97 

31 

FE 

21 

20 

08 

: D2 

3208 

FD 

36 

00 

00 

El 

C3 

FA 

IF 

:F0 

3210 

FE 

0C 

CC 

40 

32 

C3 

97 

31 

: D3 
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3218 

4B 

45 

59 

3A 

48 

2C 

55 

2C 

18 


3270 

CD 

C2 

32 

B7 

20 

21 

IB 

7A 

:4E 

3220 

4D 

2C 

4B 

2C 

5A 

2C 

58 

2C 

FA 


3278 

B3 

20 

F5 

11 

00 

05 

CD 

D3 

:7E 

3228 

21 

2C 

28 

43 

4C 

53 

29 

2C 

AC 












3230 

28 

43 

52 

29 

20 

20 

20 

20 

66 


SUM: 

A8 

35 

E3 

CB 

04 

6 E 

07 

12 

: 16 

3238 

20 

20 

20 

20 

20 

20 

20 

0D 

ED 












3240 

21 

F5 

32 

11 

F6 

32 

01 

BF 

41 


3280 

32 

CD 

F4 

IF 

FD 

70 

00 

FD 

:7C 

3248 

03 

36 

00 

ED 

B0 

CD 

A6 

32 

7B 


3288 

71 

01 

CD 

C2 

32 

B7 

20 

07 

: 11 

3250 

FD 

36 

00 

00 

FD 

36 

01 

00 

67 


3290 

IB 

7A 

B3 

20 

F5 

18 

CB 

F5 

: 35 

3258 

C9 

CD 

DB 

32 

FD 

46 

00 

FD 

E3 


3298 

CD 

D3 

32 

CD 

F4 

IF 

FD 

70 

: IF 

3260 

4E 

01 

11 

00 

05 

3E 

3F 

CD 

AF 


32A0 

00 

FD 

71 

01 

FI 

C9 

FD 

36 

:5C 

3268 

F4 

IF 

FD 

70 

00 

FD 

71 

01 

EF 


32A8 

00 

00 

FD 

36 

01 

00 

0E 

18 

:5A 


32B0 

21 

F5 

32 

06 

28 

CD 

D3 

32 

: 48 

32B8 

CD 

F4 

IF 

23 

10 

F7 

0D 

20 

: 37 

32C0 

F2 

C9 

C5 

CD 

D0 

IF 

47 

3A 

: BD 

32C8 

F4 

32 

B7 

78 

32 

F4 

32 

Cl 

:6E 

32D0 

C8 

AF 

C9 

7E 

B7 

3E 

20 

C8 

:9B 

32D8 

3E 

2A 

C9 

FD 

7E 

01 

87 

87 

: BB 

32E0 

FD 

86 

01 

26 

00 

6 F 

29 

29 

:6B 

32E8 

29 

16 

00 

FD 

5E 

00 

19 

11 

:C4 

32F0 

F5 

32 

19 

C9 

0D 




: 16 

SUM: 

80 

A3 

8 D 

DA 

E4 

AC 

35 

8 D 

: DC 


UXSE LIFE GAMEV-XU3.S 


3000 

3000 

3000 


3000 

3000 

3000 

3000 

3000 

3000 

3000 

3000 

3000 FD 2A 78 IF 
3004 CD 40 32 
3007 

3007 CD 81 31 
300A FD 36 00 00 
300E FD 36 01 18 
3012 11 33 30 
3015 CD B8 IF 

3018 D9 

3019 21 00 00 
301C D9 

30 ID 

30ID CD A1 30 

3020 CD 5B 30 
3023 CD A6 32 
3026 CD 89 30 
3029 CD 67 30 
302C CD CD IF 
302F 28 D6 
3031 18 EA 
3033 

3033 

3033 47 45 4E 45 52 41 54 


49 4F 4E 20 20 20 20 
20 20 20 20 20 20 50 
4F 50 55 4C 41 54 49 
4F 4E 20 20 20 20 20 
20 20 20 20 


11 F5 32 
21 B5 36 
01 CO 03 
ED B0 


C9 


21 F5 32 
OE 18 


27 

30 01 
14 


303A 

3041 

3048 

304F 

3056 

305A 

305B 

305B 

305B 

305B 

305B 

305E 

3061 

3064 

3066 

3067 
3067 
3067 
3067 
3067 


3069 
306C 
306E 
306E 

3070 

3070 

3071 

3072 

3074 

3075 

3075 

3076 10 F8 

3078 0D 

3079 20 F3 

307B FD 36 00 IF 
307F FD 36 01 18 

3083 62 

3084 6F 

3085 CD BE IF 

3088 C9 

3089 
3089 
3089 
3089 

3089 D9 
308A 7D 
308B C6 01 
308D 27 
308E 6F 
308F 7C 

3090 CE 00 

3092 27 

3093 67 

3094 FD 36 00 OB 
3098 FD 36 01 18 
309C CD BE IF 
309F D9 
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ORG $3000 
OFFSET $5000-$30O0 


4 ; LIFE GAME/S-OS 

5 ; 

6 ; 

7 ; S-OS LABEL TABLE 


9 f HOT 

10 *PRINT 

11 »MSG 

12 #GETKY 

13 4BRKEY 

14 tPRTHX 

15 4PRTHL 

16 ; 

17 4XYADR 

18 fKBFAD 

19 ; 

20 ENTRY 

21 


BQU $1FFA 
EQU S1FF4 
BQU $1FB8 
EQU $ 1FD0 
EQU $1FCD 
EQU $1FC1 
EQU S1FBE 

EQU S1F78 
EQU $ 1F76 


31 

32 MAIN1 

33 


41 

42 GENMSG 


LD IY,(AXYADR) 

CALL CLBUF 

CALL EDIT 
LD (IY+0),0 
LD (IY+1>,24 
LD DE,GENMSG 
CALL #MSG 

LD HL,0 ; GENERATION 

EXX 

CALL GEN ; V4* > t+* 1 J Til's 
CALL XFER ; BUF1 BUF2 
CALL PRINT ; BUF1 PRINT 
CALL GENPRT 
CALL COUNT 

CALL 4BRKEY; BREAK CHECK 
JR Z.MAIN 
JR MAIN1 


DEFM "GENERATION 


44 

45 ; 

46 ; BUF1 

47 ; 

48 XFER 

49 

50 

51 

52 

53 

54 ; 

55 ; BUF1 / UX' 

56 ; 

57 COUNT 

58 XOR 

59 


DEFB S0D 
BUF2 


LD DE.BUFl 
LD HL.BUF2 
LD BC.960 
LDIR 
RET 


Tint's & PRINT 


D,A 

HL r BUFl 
C, 24 


LD 
LD 

LD B,40 ; 

A,(HL) 
NC.COUNT3 


ADD 

DAA 


INC D 

I 

INC HL 
DJNZ COUNT2 
DEC C 

JR NZ,COUNT1 

LD (IY+0),31 
LD (IY+1)i24 
LD H,D 
LD L, A 

CALL #PRTHL 
RET 


81 ; HL’= t>* 1 ,1 TTXf PRINT 

82 ; 

83 GENPRT 


87 

88 


LD A, L 
ADD A,1 
DAA 

LD L, A 
LD A, H 
ADC A,0 
DAA 

LD H, A 
LD (IY+0),11 
LD (IY+1),24 
CALL 4PRTHL 
EXX 



30A0 

C9 

97 


RET 



30A1 


98 

; 




30A1 


99 

; 74* 

) t+* 

1 J TIT's 


30A1 


100 

; 




30A1 


101 

GEN 




30A1 

21 74 3A 

102 


LD 

HL,BUF2+959 


30A4 

DD 21 B4 

36 103 


LD 

IX.BUF1+959 


30A8 

0E 18 

104 


LD 

C,24 ; U4>+ Y 


30AA 


105 

GEN1 




30AA 

06 28 

106 


LD 

B, 40 ; A4>4 X 


30AC 


107 

GEN2 




30AC 

05 

108 


DEC 

B 


30AD 

OD 

109 


DEC 

C 


30AE 

DD 7E 00 

110 


LD 

A, (IX+0) 


30BI 

3D 

111 


DEC 

A 


30B2 

28 0A 

112 


JR 

Z.GEN4 


30B4 

CD DA 30 

113 


CALL 

CALC ; *'s1T +04 


30B7 

FE 03 

114 


CP 

3 


30B9 

28 11 

115 


JR 

Z.GEN5 


30BB 

AF 

116 


XOR 

A 


30BC 

18 10 

117 


JR 

GEN6 


30BE 


118 

GEN4 


; *!,*' Ttr 14 


30BE 

CD DA 30 

119 


CALL 

CALC 


30C 1 

FE 02 

120 


CP 

2 


30C3 

28 07 

121 


JR 

Z.GEN5 


30C5 

FE 03 

122 


CP 

3 


30C7 

28 03 

123 


JR 

Z.GEN5 


30C9 

AF 

124 


XOR 

A 


30CA 

18 02 

125 


JR 

GEN6 


30CC 


126 

GEN 5 




30CC 

3E 01 

127 


LD 

A, 1 


30CB 


128 

GEN6 




30CE 

77 

129 


LD 

(HL),A 


30CF 

04 

130 


INC 

B 


30D0 

0C 

131 


INC 

C 


30D1 

DD 2B 

132 


DEC 

IX 


30D3 

2B 

133 


DEC 

HL 


30D4 

10 D6 

134 


DJNZ 

GEN2 


30D6 

0D 

135 


DEC 

C 


30D7 

20 D1 

136 


JR 

NZ.GEN1 


30D9 

C9 

137 


RET 



30DA 


138 

; 




30DA 


139 

; B=X, 

C=Y > 

34V J TlT's 


30DA 


140 

; 




30DA 


141 

CALC 




30DA 

78 

142 


LD 

A, B 


30DB 

B7 

143 


OR 

A 


30DC 

28 0E 

144 


JR 

Z,CALCA 


30DE 

FE 27 

145 


CP 

39 


30E0 

28 14 

146 


JR 

Z,CALCB 


30E2 

79 

147 


LD 

A, C 


30E3 

B7 

148 


OR 

A 


30E4 

28 5B 

149 


JR 

Z.CALC6; HMV 


30E6 

FE 17 

150 


CP 

23 


30E8 

28 67 

151 


JR 

Z.CALC7; MOV 


30EA 

18 14 

152 


JR 

CALC1 ; +» 


30BC 


153 

CALCA 


; X=0 04 


30EC 

79 

154 


LD 

A, C 


30BD 

B7 

155 


OR 

A 


30EE 

28 29 

156 


JR 

Z.CALC2; X=0 A Y=0 


30F0 

FE 17 

157 


CP 

23 


30F2 

28 39 

158 


JR 

Z,CALC4 ; X=0 & Y=23 


30F4 

18 6B 

159 


JR 

CALCB ; fc4*VO> 


30F6 


160 

CALCB 


; X=39 0 4 


30F6 

79 

161 


LD 

A , C 


30F7 

B7 

162 


OR 

A 


30P8 

28 29 

163 


JR 

Z.CALC3; X=39 & Y=0 


30FA 

FB 17 

164 


CP 

23 


30FC 

28 39 

165 


JR 

Z,CALCS; X=39 A Y=23 


30FR 

18 71 

166 


JR 

CALC9 ; 54* Ov 


3100 


167 

; 




3100 


168 

; AM 1 * 

*1 34V J 14 


3100 


169 

; 




3100 


170 

CALC1 




3100 

DD 7E D7 

171 


LD 

A, (IX-41> 


3103 

DD 86 D8 

172 


ADD 

A, (IX-40) 


3106 

DD 86 D9 

173 


ADD 

A,(IX-39) 


3109 

DD 86 FF 

174 


ADD 

A,(IX-1) 


310C 

DD 86 01 

175 


ADD 

A,(IX+1) 


310F 

DD 86 27 

176 


ADD 

A,(IX+39) 


3112 

DD 86 28 

177 


ADD 

A, (IX+40) 


3115 

DD 86 29 

178 


ADD 

A,(IX+41) 


3118 

C9 

179 


RET 



3119 


180 

; 




3119 


181 

; t>*V4x j i 

14 


3119 


182 





3119 


183 

CALC2 




3119 

DD 7E 01 

184 


LD 

A, (IX+1) 


311C 

DD 86 28 

185 


ADD 

A,(IX+40) 


31 IF 

DD 86 29 

186 


ADD 

A, (IX+41) 


3122 

C9 

187 


RET 



3123 


188 





3123 


189 

; 54* *71 J 14 


3123 


190 

; 




3123 


191 

CALC3 




3123 

DD 7E FF 

192 


LD 

A,(IX-1) 


3126 

DD 86 27 

193 


ADD 

A,(IX+39) 


3129 

DD 86 28 

194 


ADD 

A,(IX+40) 


312C 

C9 

195 


RET 



312D 


196 

; 




312D 


197 

; t**VM t 

► 4 


312D 


198 

' 
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i 


r 


"312D 








199 

CALC 4 





3226 

58 

2C 

21 

2C 

28 

43 

4C 






312D 

DD 

7E 

D8 





200 


LD 

A, (IX-40) 



322D 

53 

29 

2C 

28 

43 

52 

29 






3130 

DD 

86 

D9 





201 


ADD 

A,(IX-39) 



3234 

20 

20 

20 

20 

20 

20 

20 






3133 

DD 

86 

01 





202 


ADD 

A,(IX+1) 



323B 

20 

20 

20 

20 









3136 

C9 







203 


RET 




323F 

0D 







326 


DEFB 

SOD 


3137 








204 

• 





3240 








327 

; 




3137 








205 

; * 

9 J 



. 3240 








328 

; BUFl 

CLEAR k CLS 


3137 








206 






3240 








329 

; 




3137 








207 

CALC 5 





3240 








330 

CLBUF 




3137 

DD 

7E 

D7 





208 


LD 

A,(IX-41) 



3240 

21 

F5 

32 





331 


LD 

HL,BUFl 


313A 

DD 

86 

D8 





209 


ADD 

A,(IX-40) 



3243 

11 

F6 

32 





332 


LD 

DE.BUFl+l 


313D 

DD 

86 

FF 





210 


ADD 

A,(IX-1) 



3246 

01 

BF 

03 





333 


LD 

BC,959 


3140 

C9 







211 


RET 




3249 

36 

00 






334 


LD 

(HL),0 


3141 








212 

; 





324B 

ED 

B0 






335 


LDIR 



3141 








213 

; Y=0 i 

k n>f’ 

94 14 



324D 

CD 

A6 

32 





336 


CALL 

PRINT 


3141 








214 






3250 

FD 

36 

00 

00 




337 


LD 

(IY+0),0 


3141 








215 

CALC 6 





3254 

FD 

36 

01 

00 




338 


LD 

(IY+1),0 


3141 

DD 

7E 

FF 





216 


LD 

A,(IX-1) 



3258 

C9 







339 


RET 



3144 

DD 

86 

01 





217 


ADD 

A,(IX+1) 



3259 








340 

; 




3147 

DD 

86 

27 





218 


ADD 

A, (IX+39) 



3259 








341 

; ??KEY : GET WITH CURSOR 


314A 

DD 

86 

28 





219 


ADD 

A,(IX+40) 



3259 








342 

; 




314D 

DD 

86 

29 





220 


ADD 

A,(IX+41) 



3259 








343 

??KEY 




3150 

C9 







221 


RET 




3259 

CD 

DB 

32 





344 


CALL 

ADCAL 


3151 








222 






325C 

FD 

46 

00 





345 


LD 

B, (IY+0) 


3151 








223 

; Y = 23 

k Mf't4 14 



325F 

FD 

4E 

01 





346 


LD 

C,(IY+1) 


3151 








224 

; 





3262 








347 

??KEY1 




3151 








225 

CALC 7 





3262 

11 

00 

05 





348 


LD 

DE,$0500 ; #-V$ 

9vY*> 94 v 

3151 

DD 

7E 

D7 





226 


LD 

A,(IX-41) 



3265 

3B 

3F 






349 


LD 

A, $3F I fl-VA 

ON 

3154 

DD 

86 

D8 





227 


ADD 

A,(IX-40) 



3267 

CD 

F4 

IF 





350 


CALL 

♦PRINT 


3157 

DD 

86 

D9 





228 


ADD 

A,(IX-39) 



326A 

FD 

70 

00 





351 


LD 

(IY+0),B 


315A 

DD 

86 

FF 





229 


ADD 

A,(IX-1) 



326D 

FD 

71 

01 





352 


LD 

(IY+1),C 


315D 

DD 

86 

01 





230 


ADD 

A,(IX+1) 



3270 








353 

??KEY2 




3160 

C9 







231 


RET 




3270 

CD 

C2 

32 





354 


CALL 

GETK 


3161 








232 






3273 

B7 







355 


OR 

A 


3161 








233 

; X=0 i 

k AS/f 

94 14 



3274 

20 

21 






356 


JR 

NZ,??KEY4 


3161 








234 

; 





3276 

IB 







357 


DEC 

DE 


3161 








235 

CALC 8 





3277 

7A 







358 


LD 

A, D 


3161 

DD 

7E 

D8 





236 


LD 

A,(IX-40) 



3278 

B3 







359 


OR 

E 


3164 

DD 

86 

D9 





237 


ADD 

A,(IX-39) 



3279 

20 

F5 






360 


JR 

NZ,??KBY2 


3167 

DD 

86 

01 





238 


ADD 

A,(IX+1) 



327B 

11 

00 

05 





361 


LD 

DE, $0500 ; *-•/* 

94T 

316A 

DD 

86 

28 





239 


ADD 

A,(IX+40) 



327E 

CD 

D3 

32 





362 


CALL 

DMAKE ; ft-V$ 

OFF 

316D 

DD 

86 

29 





240 


ADD 

A,(IX+41) 



3281 

CD 

F4 

IF 





363 


CALL 

♦PRINT 


3170 

C9 







241 


RET 




3284 

FD 

70 

00 





364 


LD 

(IY+0),B 


3171 








242 






3287 

FD 

71 

01 





365 


LD 

(IY+1),C 


3171 








243 

; X = 39 

k nuf'+l 14 



328A 








366 

??KBY3 




3171 








244 

; 





328A 

CD 

C2 

32 





367 


CALL 

GBTK 


3171 








245 

CALC9 





328D 

B7 







368 


OR 

A 


3171 

DD 

7E 

D7 





246 


LD 

A,(IX-41) 



328E 

20 

07 






369 


JR 

NZ,??KEY4 


3174 

DD 

86 

D8 





247 


ADD 

A,(IX-40) 



3290 

IB 







370 


DEC 

DE 


3177 

DD 

86 

FF 





248 


ADD 

A,(IX-1) 



3291 

7A 







371 


LD 

A,D 


317A 

DD 

86 

27 





249 


ADD 

A,(IX+39) 



3292 

B3 







372 


OR 

E 


317D 

DD 

86 

28 





250 


ADD 

A,(IX+40) 



3293 

20 

F5 






373 


JR 

NZ,??KEY3 


3180 

C9 







251 


RET 




3295 

18 

CB 






374 


JR 

??KEY1 


3181 








252 






3297 








375 

77KEY4 




3181 








253 

; EDIT 

: ?*4ft- *9t4 



3297 

F5 







376 


PUSH 

AF 


3181 








254 

; 





3298 

CD 

D3 

32 





377 


CALL 

DMAKE ; »-y* 

OFF 

3181 








255 

EDIT 





329B 

CD 

F4 

IF 





378 


CALL 

♦PRINT 


3181 

FD 

36 

00 

00 




256 


LD 

(IY+0) ,0 



329E 

FD 

70 

00 





379 


LD 

(IY+0),B 


3185 

FD 

36 

01 

18 




257 


LD 

(IY+1),24 



32A1 

FD 

71 

01 





380 


LD 

(IY+1),C 


3189 

11 

18 

32 





258 


LD 

DE,EDTMSG 



32A4 

FI 







381 


POP 

AF 


318C 

CD 

E8 

IF 





259 


CALL 

#MSG 



32A5 

C9 







382 


RET 



318F 

FD 

36 

00 

00 




260 


LD 

(IY+0),0 



32A6 








383 

; 




3193 

PD 

36 

01 

00 




261 


LD 

(IY+1),0 



32A6 








384 

; PRINT : BUFl 9 ft? 


3197 








262 

BDIT1 





32A6 








385 

; 




3197 

CD 

59 

32 





263 


CALL 

??KEY 



32A6 








386 

PRINT 




319A 

FB 

0D 






264 


CP 

SOD ; 

CR ? 


32A6 

FD 

36 

00 

00 




387 


LD 

(IY+0),0 


319C 

C8 







265 


RET 

Z 



32AA 

FD 

36 

01 

00 




388 


LD 

(IY+1),0 


319D 

FE 

55 






266 


CP 

$55 

U-O-VJl 

UP 

32AE 

0E 

18 






389 


LD 

C, 24 


319F 

20 

10 






267 


JR 

NZ.EDIT3 



32B0 

21 

F5 

32 





390 


LD 

HL,BUFl 


31A1 

FD 

35 

01 





268 


DEC 

(IY+1) ; 

Y=Y-1 


32B3 








391 

PRINT1 




31A4 

FD 

7B 

01 





269 


LD 

A, (IY+1) 



32B3 

06 

28 






392 


LD 

B, 40 


31A7 

FB 

FF 






270 


CP 

SFF 



32B5 








393 

PRINT2 




31A9 

20 

EC 






271 


JR 

NZ.BDIT1 



32B5 

CD 

D3 

32 





394 


CALL 

DMAKE 


31AB 

FD 

36 

01 

00 




272 


LD 

(IY+1),0 



32B8 

CD 

F4 

IF 





395 


CALL 

♦PRINT 


31AF 

18 

E6 






273 


JR 

EDIT1 



32BB 

23 







396 


INC 

HL 


31B1 








274 

EDIT3 





32BC 

10 

F7 






397 


DJNZ 

PRINT2 


31B1 

FE 

4D 






275 


CP 

S4D ; 

M-»-y$ 

DOWN 

32BB 

0D 







398 


DEC 

C 


31B3 

20 

10 






276 


JR 

NZ.EDIT4 



32BF 

20 

F2 






399 


JR 

NZ,PRINT1 


31B5 

FD 

34 

01 





277 


INC 

(IY+1) 

Y=Y+1 


32C1 

C9 







400 


RBT 



31B8 

FD 

7E 

01 





278 


LD 

A,(IY+1) 



32C2 








401 

; 




3 IBB 

FE 

18 






279 


CP 

24 



32C2 








402 

; GETK 

: VS 

f GET 99' ’s 

31BD 

38 

D8 






280 


JR 

C.EDITl 



32C2 








403 





31BF 

FD 

36 

01 

17 




281 


LD 

(IY+1),23 



32C2 








404 

GETK 




31C3 

18 

D2 






282 


JR 

EDIT1 



32C2 

C5 







405 


PUSH 

BC 


31C5 








283 

EDIT4 





32C3 

CD 

D0 

IF 





406 


CALL 

♦GBTKY 


3105 

FE 

48 






284 


CP 

$48 ; 

H -t-'JX 

fc** •/ 

32C6 

47 







407 


LD 

B, A 


31C7 

20 

10 






285 


JR 

NZ.EDIT5 



32C7 

3A 

F4 

32 





408 


LD 

A,(KBUF) 


31C9 

FD 

35 

00 





286 


DEC 

(IY+0) ; 

X=X-1 


32CA 

B7 







409 


OR 

A 


3 ICC 

FD 

7E 

00 





287 


LD 

A,(IY+0) 



32CB 

78 







410 


LD 

A, B 


31CF 

FE 

FF 






288 


CP 

SFF 



32CC 

32 

F4 

32 





411 


LD 

(KBUF),A 


31D1 

20 

C4 






289 


JR 

NZ.BDIT1 



32CF 

Cl 







412 


POP 

BC 


31D3 

FD 

36 

00 

00 




290 


LD 

(IY+0),0 



32D0 

C8 







413 


RET 

Z 


31D7 

18 

BE 






291 


JR 

EDIT1 



32D1 

AF 







414 


XOR 

A 


31D9 








292 

EDIT5 





32D2 

C9 







415 


RET 



31D9 

FE 

4B 






293 


CP 

S4B 

K-K-VS 

S 4’ 

32D3 








416 

; 




31DB 

20 

10 






294 


JR 

NZ,EDIT6 



32D3 








417 

; DMAKE : (HL)=0 99 A=" ” 


31DD 

FD 

34 

00 





295 


INC 

(IY+0) 

X=X+1 


32D3 








418 


ELSE A=2AH 


31E0 

FD 

7E 

00 





296 


LD 

A,(IY+0) 



32D3 








419 

; 




31B3 

FE 

28 






297 


CP 

40 



32D3 








420 

DMAKE 




31E5 

38 

B0 






298 


JR 

C.EDITl 



32D3 

7E 







421 


LD 

A,(HL) 


31E7 

FD 

36 

00 

27 




299 


LD 

(IY+0),39 



32D4 

B7 







422 


OR 

A 


3IEB 

18 

AA 






300 


JR 

EDIT1 



32D5 

3E 

20 






423 


LD 

A,$20 


31 ED 








301 

EDIT6 





32D7 

C8 







424 


RET 

Z 


3IED 

FE 

5A 






302 


CP 

S5A 

Z-SBT 


32D8 

3E 

2A 






425 


LD 

A.S2A 


31EF 

20 

07 






303 


JR 

NZ.EDIT7 



32DA 

C9 







426 


RET 



31F1 

CD 

DB 

32 





304 


CALL 

ADCAL 



32DB 








427 





31F4 

36 

01 






305 


LD 

(HL),1 



32DB 








428 

; ADCAL : HL=X+Y*40+BUF1 


31F6 

18 

9F 






306 


JR 

EDIT1 



32DB 








429 





31F8 








307 

EDIT7 





32DB 








430 

ADCAL 




31F8 

FE 

58 






308 


CP 

$58 

X-RESET 

32DB 

FD 

7E 

01 





431 


LD 

A,(IY+1) 


31FA 

20 

08 






309 


JR 

NZ.EDIT8 



32DE 

87 







432 


ADD 

A,A 


31FC 

CD 

DB 

32 





310 


CALL 

ADCAL 



32DF 

87 







433 


ADD 

A, A 


3 IFF 

36 

00 






311 


LD 

(HL),0 



32E0 

FD 

86 

01 





434 


ADD 

A,(IY+1) 


3201 

C3 

97 

31 





312 


JP 

EDIT1 



32E3 

26 

00 






435 


LD 

H, 0 


3204 








313 

EDIT8 





32E5 

6F 







436 


LD 

L, A 


3204 

FE 

21 






314 


CP 

$21 ; 

’-BYE 


32E6 

29 







437 


ADD 

HL.HL 


3206 

20 

08 






315 


JR 

NZ.EDIT9 



32E7 

29 







438 


ADD 

HL.HL 


3208 

FD 

36 

00 

00 




316 


LD 

(IY+0),0 



32E8 

29 







439 


ADD 

HL, HL 


320C 

El 







317 


POP 

HL 



32E9 

16 

00 






440 


LD 

D, 0 


320D 

C3 

FA 

IF 





318 


JP 

♦HOT 



32EB 

FD 

5E 

00 





441 


LD 

E, <IY+0) 


3210 








319 

EDIT9 





32EE 

19 







442 


ADD 

HL, DE 


3210 

FE 

0C 






320 


CP 

$oc ; 

CLS 


32EF 

11 

F5 

32 





443 


LD 

DE,BUFl 


3212 

CC 

40 

32 





321 


CALL 

Z.CLBUF 



32F2 

19 







444 


ADD 

HL.DE 


3215 

C3 

97 

31 





322 


JP 

EDIT1 



32F3 

C9 







445 


RET 



3218 








323 

; 





32F4 








446 

; 




3218 








324 

EDTMSG 





32F4 

0D 







447 

KBUF 

DEFB 

$0D 


3218 

4B 

45 

59 

3A 

48 

2C 

55 

325 


DEFM 

"KEY:H,U,M 

, K, Z, X , 

!,(CLS),(CR) 

32F5 








448 

BUFl 


















32F5 








449 

BUF2 

EQU 

BUFl+960 


321F 

2C 

4D 

2C 

4B 

2C 

5A 

2C 
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NCC-1701 0fl8fT#-^0^'.T.;T : £rtft0£ 
HiJWnt:* 0 i TAo oi yii4«^-ci' 
Sll (7 — F ) ©Jgtt0<t 9 4 *><»%&. 
eb b z. t 5 ©ft. :©:t liSMI 
©jfcaePffS©^ t Mgc £*48^ Sr 
Zif^Tc tliBgf.*>-rTtao 

magiFORTH !:tlJnLT'#t7'7 V 
liTIT© fc fe y T'To 

FORTH : ^£*>^7*7 y 
EXTERN : JtS|Ow—^73-^ffl7- 
F©fflt?n/:^t7*7 y 
DOS : r'T r 4 

torvi .2 


# 09 imoym. 


09 

3FB8 



» 




10 

3FB8 



t 




1 1 

3FB 8 

83 


♦ AND: 

DEFB 

83H 


12 

3FB9 

414E44 


DEFM 

' AND 

' 


1 3 

3FBC 

A53FI 


DEFW 

♦GREAT 

14 

3FBE 

CD 1B 3 1 

AND: 

CALL 

POPH 


15 

3FC 1 

CD0D31 


CALL 

POPD 


16 

3FC4 

7 C 



LD 

A, H 


17 

3FC5 

A 2 



AND 

D 


18 

3FC 6 

67 



LD 

H, A 


19 

3FC 7 

7 D 



LD 

A, L 


20 

3FC8 

A3 



AND 

E 


21 

3FC9 

6F 



LD 

L, A 


22 

3FCA 

C3FF30 


JP 

PUSHH 


23 

3FCD 



* 




24 

3FCD 



» 




2 5 

3FCD 

82 


♦ OR: 

DEFB 

8 2 H 


26 

3FCE 

4F52 



DEFM 

OR' 


27 

3FD0 

B83F 



DEFW 

♦ AND 


28 

3FD 2 

CD1B31 

OR: 

CALL 

POPH 


29 

3FD 5 

CD0D31 


CALL 

POPD 


30 

3FD8 

7 A 



LD 

A, D 


31 

3FD 9 

B 4 



OR 

H 


32 

3FDA 

57 



LD 

D, A 


33 

3FDB 

7B 



LD 

A,E 


34 

3FDC 

B 5 



OR 

L 


35 

3FDD 

5F 



LD 

E, A 


36 

3FDE 

C3F030 


JP 

PUSHD 


37 

3FE 1 



> 




38 

3FE 1 



i 




39 

3FE 1 

83 


♦ XOR : 

DEFB 

83H 


40 

3FE 2 

584F52 


DEFM 

XOR 

* 


41 

3FE 5 

CD3F] 


DEFW 

♦ ORI 


42 

3FE 7 

CD1B31 

XOR: 

CALL 

POPH 


43 

3FEA 

CD0D31 


CALL 

POPD 


44 

3FED 

7 A 



LD 

A, D 


45 

3FEE 

AC 



XOR 

H 


46 

3FEF 

57 



LD 

D, A 


47 

3FF 0 

7 B 



LD 

A, E 


48 

3FF 1 

AD 



XOR 

L 


49 

3FF 2 

5F 



LD 

E, A 


50 

3FF 3 

C3F030 


JP 

PUSHD 


51 

3FF 6 



» 




52 

3FF 6 



» 






EDIT : V1.2Bt:fci.'Tli-y-77V0 
ifl kt'JS, LTI'S 

©1*1^13: r - DEFINITIONS 
VLISTj Its t wet's i To 

FJI±0T'Tt 7"7 y ii 2 -ocd^M v*(: 

iotjtjn-cfffljniTo :< 92 o@ 

:M 7^ clj:;f;itg* ! * y, iOJtTsK+T 
7'5 y* ? t'9i'9«i.'?f'gtt4*>*>ft^ y 

£ To 

ifcftogo^l 7*C}t$ft4*> 

t7'7 y iiff L < Ji5ixl:7-Fn^ 

-Cgxyji^, JO^-v/7!M:ItS(> 
©tllTo c©^4r-vT^yiiv'Vb 
-v 7*7 y t 7'7 y) t I'f-CF- 3 - 

—f-^&CURRENT*' ; .?-0^T7^T'T„ 
2 O 0 0 T 7 k C }i$ ft 4***T7" 

7 y «»#^aE 0 *f* 1 4 s *> ©-r'3 71 


| nfa(^-A7-f-JUKx'J7) 
} lfa( U >77-f —JUKx'JT) 


cfa( x— K7-f—JU Kx'JT) 


j nfa 
} lfa 


cfa 


| nfa 
) lfa 


cfa 
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t 


THE SENTINEL 


J 


r 


tx y ($^-t*+t7'7 y) 

tWftit. J-—f-^&CONTEXTa* 
tosR/f >^rt. 

a yf 9 x h 1?'5 y 03£]!L!i £ 0 
*>t7*7 y 4 w t i:i-5-ClTfc 

flit- t wV h^'^r-V’7'7 y Ii 7 — KD 
EFINITIONS(:J:oT*Ji£0ayttx h 

7-K5fe* 

0 Pilig®jfftt:a>tt x F*'Jft7'7 y 
Ct i*'*-Y7'y y a ? |S:£5tl40f 

jfi;f (i FORTH*'* T 7' 

7 y :©itu®) 

THto 

*>t 7'7 J.Oiauoi'tffL < IM. 0 R 
t5i:iidffin t »*>'£y * tA.0tU'0 
L i t. ^t/yyoi&*•«©& 
ts:t tt##o«IUr* < ^ t t IbIET' 
ta>e,^4C. t 

(73 i 7’^i:fi,--ciy'3fc; t a ? £?flifr 
a , ott.'6 4 t '>a“i:l'i: -tf/ l* ? ) 0 


Special program 
BAGELS 


$t, d C i f'-C'^-lalli^-ib y-T'to F 
ORTHli i> o 4 <,' £ A, 4 St§40a*. '> L 
(ifeta- 0 i'44*t4T't i 7 a>„ 

♦fit: y 4 b t* 7 7“ 41 > y°>v 7 ° n t* 
7 a $r S>; l i L4„ 

BAGELS liSci -C r - A t't 0 &f$is0 
fe(:-$A.a*|p]E J: 7 4 

t0t'-?£/>|gi. FORTH 07° n 7' 7 a 4 
it&Lt*T < 45 i'o 

Bill:3-/1/ Rx* — h 4 a>tft 
@t?r&nt'i:L-Ci»^iLJ;5. yxh 

01 fe y c*-*- k i y irt.a/nr < 4° 
SI', BAGELS0-rr-A*^i y it. 
C. ff)Y— A|i7X?-7 t 7 R4 £t IS] 

LPtB-rsw©*#*^ s fc0-rt„ & 
=?-■ i* o ~ 9 1 r '0 io*r* y re] c s^a^ji 
ti4 y f s z t \th y & -a- 4 „ 

* 4 40tiS4 3 > tf .x-* t J;t 

fxl, t7 h 4-fHL it. 

FERMI : to 

PICO : t I' i tatiffi* 5 ' 

ill' I to 

JBtit < 4 fc4V4l'8Hl< Gi't'St 
4 c ta*-tr l> 4 i 7 C4 y, ±&*4t¥ 
J4)6@<"Gt.'tgt 5 c ta ? t'S Sipi: 
4 y i to M^sfr-A^* i At < 

4*5 I'o 

ik® li i ■• J: i' «t y 0 t KW 
i' 4 l i l <t 7 o <t y {> l»»a- tin 
itA. M.?rA<iToi'i:ST<4Si'. 


•BAGELS ^P^ALUS 

1 DECIMAL 

2 VARIABLE RNDSEED 

3 

4 : RANDOM RNDSEED 3 89 * 12001 + 

5 DUP RNDSEED ! ; 

6 

7 : RND RANDOM 3 SWAP MOD ; 

8 

9 VARIABLE PIC 

10 VARIABLE FER 

11 VARIABLE TRING 

12 3 STRING TARGET 

13 3 STRING AIM 

14 10 STRING DIGITS 

15 

16 : INIT 10 0 DO 

17 0 I DIGITS C! 

18 LOOP 0 TRING ! ; 

19 

20 : MKTARGET 3 0 DO 

21 BEGIN 

22 10 RND DUP DIGITS 3 

23 WHILE 

24 DROP 

25 REPEAT 

26 DUP I TARGET C! 1 SWAP DIGITS C! 

27 LOOP ; 

28 

29 : GETDIGIT BEGIN 

30 KEY DUP 27 - IF 

31 ABORT 

32 END I F 

33 48 - DUP 0< OVER 10 < NOT OR 

34 WHILE 

35 DROP 

36 REPEAT 

37 DUP 48 + EMIT ; 

38 

39 : GETAIM 3 0 DO 

49 GETDIGIT I AIM C! 

41 LOOP ; 

42 

43 : EVAL 0 PIC ! 0 FER ! 3 0 DO 

44 3 0 DO 

45 I AIM C3 J TARGET C3 - IF 

46 I J - IF 

47 1 FER +! 

48 ELSE 

49 1 PIC +! 

58 END IF 

51 END IF 

52 LOOP 

53 LOOP J 

54 

55 : RESULT 58 EMIT PIC 3 FER 3 OR IF 

56 PIC 3 BEGIN 

57 DUP 

58 WHILE 

59 PICO " 1- 

60 REPEAT DROP FER 3 BEGIN 

61 DUP 

62 WHILE 

63 ." FERMI “ 1- 

64 REPEAT DROP 

65 ELSE 

66 . * BAGELS " 

67 END IF FER 3 3 - IF 

68 CR . " * YOU GOT IT! * IN " TRING 3 . 

69 . " TIMES “ R> ( SKIP BAG-LOOP AND RETURN TO PNT1) 

70 END IF ; 

71 

72 : BAG-LOOP INIT MKTARGET BEGIN 

73 1 TRING +! 

74 CR .* GUESS #" TRING 3 . 

75 GETAIM EVAL RESULT 

76 AGAIN ; 

77 

78 : BAGELS BEGIN 

79 BAG-LOOP CR ( PNT1) 

80 DON'T YOU HAVE ANOTHER GAME?" 

81 KEY 89 - NOT 

82 UNTIL ; 
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THE SENTINEL 



Prolog-85AP'! : &Uc£Uckitl§IS]o 

^HHSiilKS-OSil) IS > 

3Ua • ffiSICSIsiiUS^o miz, WZIvZs 
• Al*Ofig©qJtg 

«CBJB6lSf5©SffiC£ZS'Can5'C 



Prolog-85AF8<3> 

aifbiAxaig 




£ fttProlog-85© xm*aig©fe?St: 
WULH -fee Prologtli, 


a» PH£f 9i»2..) 

li’ 5 ± 5 e, (, ©cr t ©H«* AT^ 

icjHi'T l * t aw 


? j li 

(TARO, CARRY, @X). 0 

j ti'50 
li, 

(@X, CARRY, BAG). 0 

i & D I to 

AO) C Prolog ©7 °b^'7A^A — A 
*t 5 t 1 t C r , j it.KWT'to 4 L 
t 7-7©ftb D ex^—x **$**. nuf, IS 


TYPE< (@X : @Y), 

PRINT (@X : @Y), 

FALSE. 

TYPE<PRINT! TYPE END). 

t U 0 i t. oj) (@X : @Y) tit^'T 
©!) X h it*'!., 

c. ® L ? t:^iU:J£lSSr& < LTC'4 t § 
cli, t^t©SSt^-7tt 5 w 
sot'to -f'4 :<xft t, 


iKJdi£)„ c © JtafiK* * © 

-r 4 © cr t ©K^*»Bfl?sc4- o £ t„ -r4 

El *ghTtt, idUlilit o 0 Xic©#f^l:H 
**ti * 1 

L * 5 ' L £ to £ KWJi-C ft 
.iEsglito 5 2 #M t»fc t xftTA 

r Taro carries a bag.j t & t> £ to C fr- 
3f Prolog Ct 4 t , 

CARRY (TARO, BAG) <. 
fc&D, r CARRYj 11'5 *©&**«i: ft 
oTi'it. £<i«r3t»©»Bi:J: Dj£of 


ig£3t£f:j£< t4 c £ ttao £ 

w-r 

TARO CARRY BAG 0 
£ AfttWi" 

(TARO, CARRY, BAG) <. 

11' 5 IB**7°o t"7 A n4 7 °n ^ 

7 A oT^i L J: 5» 

IN < INPUT (@X), 

CONVERT ((@X), @Y), 
ASSERT (@Y<.). 

£ riNPUT»:ioTX^-x-r#!S?fKU 

ofcX^JlJfcArt l £ t„ &CCONVERT 


&SRCON?r#;l-CA£t„ cniiSCON 
ti'5Itl§-c'S^©M<: r j(x*-x)* 
An, IMPLODE t I' 5*aH»-r r ,J 
^DtOioTLi ilfil't'Lj: 7» 
RCON (@X, @Y)< 

SCON (@X, @Z), 

IMPLOD (@Z, @Y). 

SCON (@X), (@X)X. 

SCON((@A : @X), (@A, : @Y))< 
SCON (@X, @Y). 
$TA'(i^fi-Cto /i^r.ll < 


tftCA£ L J: 5o 

r CARRYj ££IS© r TAROj ©t^>i: 
83 c' "C A £ t o iliilp t, li r Programj ©*& 

-r r Pj t l-c 

P (TARO, CARRY, BAG) <. 
:nTiXi:l( & t) i Lfci' r Pj *u 
It C' &!§ L ** L £ to L' o li Prolog-85-C' 
< T 4®H'T < 

©tto 

£ Z-C r Pj 4f«»fELT 

(TARO, CARRY, BAG) <. 
fc t S C fc **r $ * t. Kra-f, r AfiIW£fsj 


r ,j HfitU 
I'ito £ L-C ASSERT f7“D/ 
5Ai:.satSfcUt'to 
■rtta»ttt*ciii»ttE5trLj:)« 
ASSERT © ft b <M: RETRACT £ f£ ? 

trs it. 

DEL< INPUT (@X), 

CONVERT ((@X), @Y), 
RETRACT (@Y). 

@5©fi» t HPJI&ttC' & 5 t JAlilS^tto 
7°n^"7 At®li5lit^'t:!) x h IZkoX 


^C'-CL J: ? 0 

GO<INPUT (@X), 

CONVERT ((@X), @Y), 
@Y, RCON(@Y, @Z), PRINT 
(@Z). 

c n-C—lict'-o ; Jpr, j^f^bt t:7°o y 
x SJ5i:4!)iL 

Ao l»li r.m^y tftXTfiiito 
JT Prolog ter-ft^-K t LTIEd 
t l> ^ t' A4© r"- ^ 4- A * t 5 OWlfl-xr 
tl>it„ d© J: 5 fc t&©A*y-^4> 
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SEIZA (3, *•«:)<. 

SEIZA (3, fi'C, f)<. 

SEIZA (3, 7A^i/)<. 

t&Dit o 4 efe©3 JJ©I.ffil§UB© 

*ZAtlttUXr-*i>mM2ti?''' < A 

7 t:t47°n7'7A£02 C^Lit, 
NY-EOttSt, t-7' , -77't 7-fc- 
7'© r HELLO! j $K'T r P 

LEASE INPUTj i SIR 
Ht.AJ)t4 tASSERTl"JL8££**§ 
mzmto aajla-x^** r EXj-r'^n.' 
KB!) r @X = EXj ©t i h'C-'^'y 7 h 7 7 
0, TRUE © t e £ i -TRS t« 

ti&s&t«. ®fi o ii l n a b o 

■ft. r EXj *A*t4 fc-*l*S*t4 
©ft ** RETRACT t'iKI L T L i i\ & 
T> 0 it, 

®SA4Af:©t"-7 4-A;)]t4 t SKA 



m&fflmafflt 


Prolog-85©cfc'J'JtUK: li r > j ©*t^§- 
4-ISK'i t* f r <j tttti* i-frA. tc-f 
r <j {> IS A 4 A 5CLTAi Li 5, 
it@X>@Y k<k<Dl 7 t: L i t, 
(@X, >, @Y) < @X>@ Y. 

* 5t4 t r <j 4-IS5 t:fi 

(@X, <, @YX@Y>@X. 

t tn if 11 'Ztizm-r 0 z <o^&nrt 

tli*-© r >=j, 

r =>J, r <=J, 

r =<j & InllfH: 
LTISA sett: 
U !> it (0 3). 

4 4x*> C>, Pro 
log-85© X^JJt 
$5-C't**It9l© 1 
X^L*’it$5L i 
tA, 4 Z-CXf 
CgJ/'tJMt 

i L A 7, 

Jtlftt 4 

3f EXPLODE!" 1 
X^e't©!lx h 
l-.ftM L ! t> t o 

toJ±$St 4 e t 
t: L i t. A* t A 
Uf7^7 7'<•9 V 
©HB*'t' 5 A-Sf^' 
4 CIA, 

( @ X, IS BEFO 
RE, @Y)< 
EXPLODE 
(@X, @A), 
EXPLODE 
(@Y, @B), 
COMPARE 
(@A, @B). 
t L!*n-!COM 
PARE-fJt® L i 


0 fO t: £• b -t A A * 7° n 7' 7 A 4- It o ! A 
T</'Si'. 


• HI ^P^AAt±S*^-;U 


1 IN<INPUT(@X) t 

2 

CONVERT(<SX),®Y), 

3 

ASSERT(GY<.). 

4 DEL<INPUT(0X), 

5 

CONVERT((@X),@Y), 

6 

RETRACT(«Y<.). 

7 TYPE <(®X:8Y), 

8 

RC0N((«X:@Y),«A), 

9 

PRINT(@A), 

10 

FALSE. 

11 

TYPE<PRINT(-TYPE END). 

12 

RCON(@X,eY)<SCON(@X,@Z), 

13 

IMPLODE(0Z.8Y). 

14 

SCON((@X),(@X))<. 

15 

SCON((9A:9X),(@A, :8Y))<SC0N(«X,8Y). 

16 

00<INPUT(@X), 

17 

CONVERT((«X),@Y), 

18 

@Y, 

19 

RCON(«Y,eZ), 

PRINT(@Z). 

20 

• HE 


1 

NY<PRINT( HELLO !), 

2 

TRUE, 

3 

PRINT( PLEASE INPUT), 

4 

INPUT(GX), 

5 

ASSERT(SEIZA(3,@X)<.), 

6 

@X=EX, 

7 

RETRACT(SEIZA(3,EX)), 

8 

PRINT( OTUKARESAMA). 

9 

TRUE<. 

10 TRUE<TRUE. 


to J:bl5(i7 7A-3-F tx^®g$t 
fii'it (0 4 )„ 

Prolog-85!" (A & A 4 Scfii IA.jjE©&Sc!" 
to 4 e -f HMRIfrf ft ©ft 4 A A 4 A 5 
CLTAit, 0 5 t:7°o7'7A?f^:Li 
to *?.*‘L*AoTi'SMiJig# t lilt 
A 0, lAiStStt^' & t e A lASclii 

t:&o!i,'& < TIA& D i-tA. iRiiOH 
BiJ«»© A 5 i:«»a*t" 
ti'?:ti:li(CoTl'i-AA©t, 7°n 
7" 7 5 77"© t S (Ait® L ! < t,'o 
St, HSU&A4A 5i:lofct:S 
L i 7„ ■‘poTA 

4 © IA {> o t 2&£Jli$;©l3Sc3- 

•■ft. 

x 2 + 3x— 4 = (x 1) (x+4) 
ti'5i5 t:feia*'f.tfia^©S©^4 > 
JtitS&cstTAi t„ -ftt:2)AS;©0 
ftfl-»IA, 

ax 2 +bx+ c = (px+q) (rx+s) 

© t I 

a =pr, b=ps+qr, c =qs 
fc44 p,q,r,s©Sc4-!.ott;bte tt't. 
#Kl&fct4 t a cfc 4 &©!&*£•*>-tf-t, 
c C 4 4 !&*£•*> p,q,r,s i:Stt^ 
! b =ps+qr t 4 4 4 ©4-1.0 II 4 ©** 
Ao 7 f t ta. Prolog © 7 °n 7"7 /,!" {> i 
KimcTA'jy ^?fii't*i to 
Prolog-85© E9 fl!l iiK3¥!" IA •SKtNf© 3£Sc IA 
Ct to HTFti' 7 MK*** 0 it ©!", 4 
<Di i-rii8Ht^A>tASc**?»#Ht-^tt 
4Sc4-#*!>4 e t IA!"§ i -tA, Kf 
KUMI1i' 7 &IS4-IFo !I#t f &b t4 SC 
©«*6t»tf«rJlOlt&ti4J: 7 t: Li to 
m'«!A4 t«l|!)«IIx4^Sc4-1,00 4 C 
t C t£ D i toProlog-85©8H 0 
« D4#T 4 i 7 CtfoTt,' 40-f'e Ai4-fiJ 
fflLit (Prolog-1500®^a r INTj 4r 
ISotSSc4’^J0^'C4-E>l!t f *i) it), 
7 °o 7"7 A-rii XNUM 11' 7 iilg-C’4 A 
c,nt:$ c*X i itr©.«»4-^$-ti-cfij 

9^4X4Sc4-1.0tti to 

XNUMAXS< 4x«'® t ©7°n 7"7 a( iffi 
^t:-r& it, 0 6C44x4-^Lito NI 
JI 11- 7l£a§©^Itli7 7U3"!) Aa 11- 

5 A OHSc'tf)¥-©$|gt:ja< 4ro-ci'ito 
e4x4-^lT$-t4 t:li, 

NIJKl, 3, -4, @P, @Q, @R, @S).H 
114*> 

NIJKl, 3,-4 : @). H 
ttt< 

NIJKl, 3,-4, 1,-1, 1, 4). 
t i' 7^**110 7 < 4 litft, 

St, enA'Otr'KSc^Jta^^rgc*? 

Prolog-85AP^ i52 








liitA.CD'C', XlUficDi ZZ&b 5'PI 
Ztxc, L < LXfrt L J: ?o 7“nr'7 At i 
g| 6 ©50~67f?i: U *) i to i -f CLSfW 
Sfr^y 7L*;*fc, Siri^ltAM 
%izt£t) it. Prolog-85-r'liPRINT©fi 
ii: r ; j^K tiScftli^Ao ifcINP 
UTIi i)- y »<D ft t> ftt^x k XAj 
m ixm.'ix H I'**, K-r, c© 


THE SENTINEL 


bPRINTf'^/ALA-X'?^ 
AyjX¥*>^.Jficy*s «t 5 «:L-ci'ito 
}f;j IT * f PRINT L fc X'7- *' li 

r =j5fffio-ritsijL-n^to xwzm 

CRBC,-f, —I: Prolog-T 

li£©£ i&Dftfcfci.' t I'ttii.'©ft 

* f , EXPLODE t 5 Hftt'£*ai«r 1 X 

^ cr t © y X h »:#«¥ - 


i& y x h ©fsc t mih t a s Fti c 
l ^ & t<, c ; r'M'g& t - 5 

%-ao ttm Uzftl li, ^JgliEXPLODE 
t li*£©MtSct:& 4 IMPLODE 
y x h^X^ICLTi.'^To 
w ft-C'—J/i5© h y 3 lio % i Lfz„ EX. 
gtLTA, B,C 

4MHr LT < H i to t> L HiSt^T' & 4 


• m3 *'J'fcfc® #1116 2;£it©S!8tf**n ~3iffBB5<i:Bi;) 


1 (@X,>,@Y)<«X>«Y. 

2 (@X,< , @Y)< @Y > @X. 

3 (@X,>=,@Y)<«X>=0Y. 

4 (ex,=>,eY)<ex>=eY. 

5 (@X f =<,eY)<3Y>=@X. 

6 (eX,<=,eY)<eY>=eX. 


• 04 


1 («X,IS BEFORE,3Y)< 

2 EXPLODE(eX,SA), 

3 EXPLODE(eY,eB), 

4 COMPARE(eA,eB). 

5 COMPARE((),(eB))<. 

6 compare(( eA:ex),(eA:eY))< 

7 COMPARE(ex,eY). 

8 compare(( eA:ex),(eB:eY))< 

9 eB>eA. 


• 05 Qgumo&lb 


1 -TASIZAN-< . 

2 (eA,is f -eB,+,-ec)<!, 

3 ex=eB+ec, feq( ex,eA). 

4 (eA,is,eB,+,-ec)<!,(eA,is,eB,-,ec). 

5 (eA,is,-eB,+,ec)<!,(eA,is,ec,-,eB). 

6 (eA,is,eB, + ,ecxeA=eB+ec. 

7 -HIKIZAN-<. 

8 (eA,is,-eB,-,-ec)<!,(eA,is,ec,-,eB). 

9 (eA,is,eB,-,-ec)<!,eA=eB+ec. 

10 (eA,is,-eB,-,ec)<!, 

11 ex=eB+ec, feq( ex,eA). 

12 (eA,is,eB,-,ec)<eB> =ec,eA=eB-ec. 
is (-eA,is,eB,-,ec)<ec>eB,eA=ec-eB. 

14 -KAKEZAN-< . 

15 (eA,is,eB,*,ec)< 

16 MsiGN(eB,ec,eY,ez,es), 

17 ex=ey*ez, 

18 iF(es=p,EQ(ex,eA), feq( ex,eA)). 

19 iF(ex,eT,eE)<ex,;,eT. 

20 iF(ex,eT,eE)<eE. 

21 EQ(ex,ex)<. 

22 FEQ(eX,-eX)<. 

23 MSIGN(-eA,-eB,eA,eB,P)<!. 

24 MSIGN(eA,-eB,eA,eB,M)<!. 

25 MSIGN(-eA,eB,eA,eB,M)<!. 

26 MSIGN(eA,eB,eA,eB,P)<!. 

27 -WARIZAN-< . 

28 (eA,is,eB,/,ec)<ec=/0, 

29 MsiGN(eB,ec,eY,ez,es), 

30 ex=eY/ez, 

31 iF(es=p,EQ(ex,eA), feq( ex,eA)). 


32 -KUMIAWASE-< . 

33 kumi( eN,ex,ey)< abs( eN,eM), 

34 XNUM(eM,eX), 

35 (eY,is,eN,/,ex), 

36 (eN,is,ex,*,eY). 

37 XNUM(1,1)<!. 

38 XNUM(eX,eX)<. 

39 XNUM(ex f eY)<eA=eX-l,XNUM(eA,«Y). 

40 ABS(-eX,eX)<!. 

41 ABS(ex,exx. 

42 -NIJISIKI-<. 

43 NiJi(eA,eB,ec,es,eT,eu,ev)< 

44 KUMi(eA,es,eu), 

45 KUMi(ec,eT,ev), 

46 (ep,is,es,*,ev), 

47 (eQ,is,eT,*,eu), 

48 (eB,is,ep,+,eQ). 

49 -NYUUSYUTURYOKU-< . 

50 EX<CLS, 

51 PRINT(---NIJISIKI NO INSUU BUNKAI ), 

52 PRINT( ), 

53 PRINT(A*X2 + B*X + C), 

54 PIN( A,eA), 

55 PIN( B,eB), 

56 PIN( c,ec), 

57 NiJi(eA,eB,ec,ep,eQ,eR,es), 

58 PRiNT(=(ep*x+eQ)*(eR*x+es)), 

59 PRINT( ). 

60 EX<PRINT( INSUBUNKAI DEKIMASEN). 

61 piN(ex,ey)<PRiNT(ex=;), 

62 INPUT(eA), 

63 EXPLODE(eA,eB), 

64 APPEND(ep,(=:ez),eB), 

65 IMPLODE(eZ,eY). 

66 APPEND((),ex,ex)<. 

67 append(( eA:ex),eY,(eA:ez)) 

<append( ex,eY,ez). 


mm*} 

EX. B 

-NIJISIKI NO INSUU BUNKAI- 

A*X2 + B*X + C 
A=2 
B=5 

C - _ 1 2 

=(l*X+4)*(2*X+-3) 

TRUE - EX. 
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HNSUBUNKAI DEKIMASENj© t 7 
i:f©:t4'gSLT<nit. itzB<D 
ttit#G&atc*&<9 i ith 

it < nit. 




r PrologGt SPrologj t iXtiT t t < 
■biX&l'A'L LHit/ii*, CLAUSEt 
<■' 5 HtHBcS+fi! 7 t r Prolog!- t b Prologj 
**iea-r % t to CLAUSE L i' 7 0 It 0 

jg-tJER-rto L-u if 

A <. 

B < C. 

D< E, F. 
fcl'7 t S 

CLAUSE (A, @X). 0 
ttn 

CLAUSE (A, ( )). 

t U 6 i to 

CLAUSE (B, @X). □ 

its t 

CLAUSE (B, (C)). 

CLAUSE (D, @X). El 
-ri t 

CLAUSE (D, (E, F)). 
t U D i t. Prolog-85t'lt4:ft:0#.t/lt 
') x hOfct'Mot $ i to 
?t, ^ 1 0 0-T' Prolog 0»OI&ltfSJ 
£ lTiX*X£!Xi LfciH 5-®$!) 
iltt, r Prologli4x c,tiA*01fi:ML 
t->*% — v-? 7 f-t Sbp£ 7°o 7*7 a4>*> 
f-lcf, *0t®G*1***&fiftlfim * 
ftlf £ ©*#:***? Ll'gift CfSj tl-0 
-Cl' i l tl„ fit CLAUSE oT •! ti 
£7°n/7i LT*i L i 7o 
0 ffi® It 0 H t It b m<D& tft'*fc<D b- 
(OMS-Cto Zftfr BODY 11' 5 jtR-r* 
t:ii:Lit„ fLTISliJxho^ 

•C4is:li:lit. im.miz<D')b 

{ioCSJxHils 

t 4 0 it. 7°n7"7 Alt 

BODY (( )X. 

BODY((@A: @X)XGOAL(@A), 

BODY (@X). 

GOAL (@ AX CLAUSE (@ A, @B), 

BODY (@B). 
i1£ 0 i t. CLAUSE 
U*-<iuiX)SXi.;», 01 f**iiiA|iySc©t 
l>li*ffi:^KL-CLSi’ito ffiiiTO 
t> S -a- 4 t: Itt' LI^i ! I' b OC'to 


.. J 

•Lo 7 It 

GOAL (@XX@X. 

tiXSXitlKlL-C^it**, BMSIft 
tzlx. If 

GOAL (PLUS(@X, @Y, @Z)X 
@X=@Y+@Z. 
t IT is Si to 

PLUS (@X, @Y. @ZX 
@X=@Y+@Z. 

tzltt't i, BODY t & ®&0ft 

A **7 i < i'*>Cci'- t* f * Ht» JnW 

fcfftgfctexX i 7 i:L/;tB/7 
7 i t i 7 0 

CALI, CAL2 ti'5/o /7A«ot 
CALX 

PRINT (TASIZAN START), 
PLUS (@X, @Y, @Z), 

PRINT (1 + 2= @X). 

CAL2< PRINT (KAKEZAN 
START), 

MULT (@X, @Y, @Z), 

PRINT (2*3= @X), 

0t 7 G&oTl' St§&, 

CALI, CAL2. y 
t LT i 

BODY ((CALI, CAL2)). y 
t L T(> OH L *§*!:& 0 it. Tft-f r Pro 
log Gt 4 Prologj * f r'S £ L A„ C'U 
MSMt'-t t L AA'Ut'* 

I 0 tint* 1 * D it A. 7°n7"7 A^fi'L 

T*i L i 7. 

Jfc*J*yi07 ,, n 

7" 7 A 8 GtR 

Lit emit 
ft ^ r Prolog j , 

M*-ia*i:ai-ci' 

S7°n7''7A3rPro 
log~85ffl Gjg L tz 
LOft).*** 

ItPARA-C'to $ 
t * r <-sfe^ijxaifp.tr 

It* o-C7°n 7'7 
A Itt'+ISINIir'to 

^tflt, 

PARA (CALI, 

CAL2)). H 

t l it. itio 

ft 0 0PARATC 
AL1, CAL2*X 

Gg §&*>») it. 

Htst PARA 

0* i©*‘ow r (j 


* 5 ' 3 fifet < i 7 t: & o -C r PARA (((PRIN 

T (TASIZAN.j t t£ 0 i to Ut 

ftG 3fi-00PARAC^-v^7tL-C 
0»0l«#4r^«ijLito 
t'mmmfrmwiti'bcDt'to *trit 
PARA04>ft**^!) x h If*' •) i: Cc o tz l 
& L i to - 0l*-T*ff'lt 1, 2 ftt: 
loti'it. 

CALL CAL2. y 

its 

TASIZAN START 
1 + 2 = 3 

KAKEZAN START 
2*3 = 6 
t Cc6 0i:ttLT 

PARA ((CALL CAL2)). y 

its t 

TASIZAN START 
KAKEZAN START 
1 + 2 = 3 
2*3 = 6 

t & *)3fc?iJ^ti:&-o-Ci'.& C. t**L)*>6 

it. c. nu and $3\im fn4 t>0-C 

t* f , t^'-C07°n7'7 + * t 7 i < i' < t 
l' 7 ib It Git i' § I -tfA.. 

CAL3 < KEISAN (@ X), 
PRINT(@X). 

KEISAN (@X) < PLUS ( @ X, 3, 4). 
lltfei't 

PARA ((CAL3)). y 
t IT X7 < tii tA„ 


• H7 Prolog(cd;-SProlog 


1 BODY(())<. 

2 BODY((@A:@X))<GOAL(@A),BODY(@X). 

3 GOAL(PLUS(«X,@Y,@Z))<@X=@Y+@Z,!. 

4 GOAL(MULT(@X,@Y,@Z))<@X=@Y*@Z,!. 

5 GOAL(@A)<CLAUSE(@A,@B).BODY(@B). 

6 GOAL(@X)<@X. 

7 CALI<PRINT( TASIZAN START), 

8 PLUS(@X,1,2), 

9 PRINT( 1+2=@X). 

10 CAL2<PRINT( KEKEZAN START), 

11 MULT(ex, 2 , 3 ), 

12 PRINT( 2*3=eX). 

13 PLUS(ex,eY,ez)<ex=eY+ez,!. 

14 MULT(ex,eY,ez)<ex=eY*ez, !. 


BODY((CAL1.CAL2)).y 
TASIZAN START 
1 + 2 = 3 

KEKEZAN START 
2*3 = 6 

TRUE - BODY((CALI,CAL2)). 
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*43 © 1z r KEISANj 1430 t L 4 t*»* 
f*® r PLUSj£3llTt -S BU t- r PRINTj$r 
^fr L T l 4 t.' 4 to r TRACEM0DE2j-C' 
r PRINTj Sr^If L fc * 
t C|tlCCD r PLUSj L X l' 4 ©* ? ib 
*• *) 41„ 

&#l«i3»:l4AND&5lJ0»4a*i:OR&5iJ, 
£ LTj^#£ , ffl&'o'ibt/-:AND-OR3fe5 | lft 
i: <■' A i' A 1 4 to Prolog-85 

-C'OR&?iJ£ t 4 if-g-14 APPENDIX©FIN 
DALL Sfteot 

FINDALL( @ X,CLAUSE(@A, @X), 
@L). 

fctSfc, SSC'tfr-V^T'f-tigff© 
*#©!) x M*I#e>tt 4 t**f>, i ©#* 1 
£>£ !) x h IrS^to !> 0 t o©#i£fc i' i 
stln. 


Prolog<£S%iWs§ 


Prolog £I§4 i 

* ? ,4iT & 4 t„ fc i' 5 © tt Prolog t £ 2* 
«2§©£ftl4ffltt**#®t: 4 I'*' t>tto 
fcAT l4‘B0fl*l4*Bt , t. 

X = ^|s|'Bi+ttP'iri 
^ bp!'b] — ^ ^ S^l 


fti"] "n] = fflllljnPI + & "“I 

^ S»I^] = ^ opI 

IMpI'bj= SIIjisI 

11> 5 14 £ © 4 4 Prolog 

©/b/7 -m:& 0 4 to 
SENT(@X)<NP(@A), 

VP(@B), 

APPEND(@ A, @B, @X). 

N P ( @ X) <DET(@ A), 

N(@B), 

APPEND(@ A, @B, @X). 
VP(@XXVT(@A),NP(@B), 
APPEND (@ A, @B, @X). 
NP(@XXN(@X). 
VP(@XXVI(@X). 
i 4 to 11 i 14 , 

N((TARO)X. 

N((BAG)X. 

DET ( (A)) <. 

VT ((CARRYIES)) <. 
N((HANAKO)X. 

N( (FLOWER) X. 

tltbl t TARO CARRIES A BAG. j 
t 5 Ctt 

SENT ((TARO, CARRIES, A, BAG)). 0 
i tt-14'4 '■'©ft, <#£**&<>-CiX*», 


«e-»fc^tt5cttL4t. ^Prolog 
©#»»:&!> 41 a*, :©J:5i:Xf5rX 
T ifrft? t4 It XW© 7° n ^7 a 
14, c 11: t> 

iai4.4to 

SENT(@X). Bits tteJi^»4ftl-7 
TIX #§§ t XffiRmrIEo T £*«rfts !> 
ttl L T ^ 4 to 

SENT (@ X), PRINT (@ X), FALSE. 0 
t tiil4*#i ^iUt^TOXt^!) Hi 
Lt < ix4 to ttXixXX't t £*£** 
fitrtlE&Xtirffot L 4 I' 4 t* 5 'o 
Bl 9 - (a)0/X7 A-C'14 APPEND 
% , ^ot / fr|0^'g-^fto'Ci'4 t* f , t 5 
*L»*OJ:<.'*g##8:«r«*Li U5. 
®9-(a)-ri4'B] j pp?f D x urmmiT 
i' 4 L WtilriDx h fc 
-TSiaL4to I»x|>t'BMMr2 o 
ttoTttfco®}) x h£^iI!L4to fcfc 
4.14'SP© r Aji4 r N((A)X.j Xot© 
a* 

N((A : @X), @XX. 
fc<.'5#9!U& 0 4 to r @Xj 14 !i x h-f 
0 4 to±©l?i]f'14 r @ 
Xj (4 r (BAG : @X)j t tt 0 4 to IX 
K4 (.% 1 !) x h, |2XH ©*2fc L 
ti'-Cil !) x H4 r « + ®2 !) x hj fcfc 


•08 msimi 


1 PARA( ( )X . 

2 PARA((():@X))<PARA(8X). 

3 PARA(((BA:BX):@Y))<!, 

4 APPEND((BA:BY),(BX),BZ), 

5 PARA(@Z). 

6 PARA((PLUS(@X,BY,@Z):BB))< 

7 BX=BY+BZ,!,PARA(BB) . 

8 PARA((MULT(@X,BY, BZ) :BB))< 

9 8X=8Y*BZ,!,PARA(BB) . 

10 PARA((8A:BX))<CLAUSE(BA,BB), 

11 APPEND(BX,(@B),BZ) , 

12 PARA(BZ). 

13 PARA((BA: BX))<8A,PARA(BX). 

14 APPEND!(),BX,BX)<. 

15 APPEND((BA:@X),@Y,(BA:BZ))< 

16 APPEND(BX,BY,BZ). 

17 CALI<PRINT( TASIZAN START), 

18 PLUS(@X,1,2), 

19 PRINT! 1+2=BX). 

20 CAL2<PRINT( KEKEZAN START), 

21 MULT(@X,2,3), 

22 PRINT! 2*3=BX). 

23 PLUS{@X,BY,@Z)<BX=BY+BZ,!. 

24 MULT(@X,@Y,@Z)<@X=@Y*@Z,!. 

mnm 

PARA((CALI,CAL2)). 

TASIZAN START 
KEKEZAN START 
1 + 2 = 3 
2*3=6 

TRUE - PARA((CALI,CAL2)). 


• 119 mmnmm i 


(a) 

1 SENT(eX)<NP(BA),VP(BB),APPEND(BA,BB,BX). 

2 NP(@X)<DET(@A),N(BB),APPEND(8A,BB,BX). 

3 VP(@X)<VT(@A),NP(@B),APPEND(@A,@B,®X). 

4 NP(ex)<N(ex). 

5 vp(@x)<vi(ex). 

6 APPEND!(),ex,ex)<. 

7 APPEND!(eA:eX),eY,(eA:eZ)) 

<append! ex, by, ez). 

8 -. 

9 N((TARO))<. 

10 N((BAG))<, 

11 DET((A))<. 

12 VT((CARRIES))<. 

13 N((HANAKO))<. 

14 N((FLOWER))<, 

(b) lUXS?®ofclg 

1 sent( ex, be)<NP( ex,eA),vp(eA,eE). 

2 NP(ex,eE)<DET(ex,eA),N(eA,eE), 

3 VP(ex,BE)<VT(ex,BA),NP(BA,BE). 

4 NP(BX,BE)<N(BX,BE). 

5 vp(ex,BE)<vi(ex,eE). 

6 -. 

7 N((TARO:BE),BE)<. 

8 N((BAG:BE),BE)<. 

9 DET((A:BE),BE)<. 

10 VT((CARRIES:BE),BE)<. 

11 N((HANAKO:BE),BE)<. 

12 N((FLOWER:BE),BE)<. 
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oTi'ito l4e© r a'j*’'SMc©*4 

* t 4 0 * to 

S>; x t 

SENT ((TARO, CARRIES, A, BAG : 
@X),@X). 

w <Dt§j& r BAGj mkh (4f6J 
i * y 4 tA* fr @Xjl43im£i r @Xj© 

4 4ft. M) X h &{M'?tm9-(a)cD7° 
n X7 A irfp I) lit t H 9 -(b) t 4 0 4 
to APPEND A*4 < 4oT*4rfe$14J: 
**of i'4®f t* f , 

5 ,6fl4 (a) © 14 5 **t o & !) L f 4 4 
5ft (* t lif5A,©ff* LAVf t). 


AIXMBIZ’DUZ 


r A ItHJfibj, r AIj (Artifical Interigent) 

3frtt£i'fcSi.'4t. S*XfnJt 4 < A>*' 
U) 4§i*’'t 4 ©-rt* f , 

4of i'4i'i t i£i'A 5f to —fet: 

AXSsnfe i i' 5 ©14 2 o©*i#*»* y 4 to 
oi), @W** 2 o£ 4 ©fto OfcolA 
Ara©#'*. 4 jSS*rae,*'etS fci '5 L 
©, i 5 Otolia 7 kX — ft eftWftgft 
{1^4 J«t£e&A-t4 ti'5 t©ft„ 
®i#140F32, tiuSi-t Ui 

4 tA. Lfci*ot, ®#©*feft fcfe 
y T°n7"7 A©7A'3y X' 

A**ffiSfc4 y 41„ (.'*>(:AIbJcIEi.'7 

^a" y Xa * £o 0 4 *'**^M t 4 4 ©f 
to -^©Sfflti'?jt«ftt, iEir*!: 
a****** exRs**m*t4*» 4 to 
AX$nraf1£5?j!:M4a vEX— 7, o4 
0 CPU f to f fc CPU * f AP a 1©slflia t mi 
L 11' 5 &SEI4 if d e b ft 0 4 -t A*' t>, 

A MW 4 7 ^ =" V X a a» CPU e t offt 
&fclAi'A4<.'*'L U^A. (Arat4§ 
#efefcL©L»*ftti4i'**&. avkX 
-7 t Ara©sS0$fi£l4{«f i'4 15 Ilf, 
uoit). 

2 o©;»u§i4fe££i® l :I;i£®1i#0ll t 
^4l4*'i LAi4-tA 0 fix % 
14ASIPt© i t I4fe*fee# t f i> 4 to 
ft*’C»Ara©S#j©@??PH4 5 fc Lf 
L 4*>4*'ib*X4t.'©ffo )£e;tfe® 
tariff t1 .@.#©7^3"y X'Afcrafitfl: L 
J Pt<, 4 A 3 >kX — * C-g-ibi*f && 

Lf §> 4 t. fti*&HH©*^i'ta4 
t iDS»©-ffl:Sf«: *•*>6 o f i- 4 14 if g < 

4 4 4 5 f to 

t 4 hX Prolog (4 AX&ftlfi] § WH t 

i'6ti4 4 t* 1 * 0 4 to £ ©lift 141' A 
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i'A£4 4 5 ft**, 7nf 7 A©ie)$** 
0 ^ti'4 fc, *'ySft* t £4tIJS©4il& 
fc 7 7 7©t$(j£4t#of l'4 
:t, i LT7b/ 5 A©rai'^e@ll3S 
*’'£ y H5^Wt:®j*‘t 4 t **ra#f ft 4 c 
t 4 if * { f X © n 4 to £ 4i*> C, *23^© 
t£?6* f $^f * 4 fci'5®i**ft. £ 
4 f AX&ft©&JtUtlf® CM: o fc If @ 
5dfi>4 Rratif'^^X Til: Prolog * f 
£'©4SJg«A4*'j!,T *4 L 4 5o 
RF^li^g -> x r a 14, CH ANG/LEE# r a 
7k 0 i-^(:4 4 ^il©|EH/lji(114= a >E° 
cfseofDc0 4*r.^ffiLf 

A 4 to 

1 ) yes *' no fS A b 4l 5 

4 -TMM t Lf#i C> ftA<^* f r * 4 
A***» i: i.' W4a © AI4AP.5e 141.' 4 1 -' j 
t r k n 7 + 14*«ei'4 j t I s , r k n 7 
Ai4APSei,'4*■ ?j fci'5Krae§£© 
^x^^tll-g-^^-x 4 to zniilii/i 
if ?■ © 4 4 Prolog©7 n f 7 a i:4 0 41 
0 (HIROAKI.IS IN,OSAKA). 

1 (@X, IS NOT IN, OSAKA) < 

(@X,IS IN,TOKYO). 

2 (HIROAKI, IS IN, TOKYO). 

2) r t'Zj *> r Hj CWLf«AC,4lS 
w iU- b Prolog e t o f 14 £ A 4 e It L 

< ft y 4 t A„ A t A (4*±©f?ijf r k n 7 
A-14 if :ei'4*> ?J 14, Prolog f 14 

(HIROAKI.IS IN, @X). 
t 4 y 4 to r @Xj © t 
*’'Aof)lof & 4 to :©i5eM© 
*1*0X5^16* i © i ©Alt biSift 4 « 
Prolog 14 Aft A e I4^e^(.4f o*>4>4 

< i b k ©4 4 f 13: A 4 to 

3) r fc'©J:5Cj la^Lf»Ab4i5 

14Prolog©JKtSA’ftof i'4 C t® 

eMt 4Srae4 y 41» ft*>f»,P 
rolog-85f i o t i^ite'^^t 4 ei4 
r TRACE M0DE2j f AtT4'©«ftl4A 

^5-tf ^>3x1^4 I'Ofto f i 

fAfit rt KPHeWt 4 WJI4^A e 14 
4 y 4-tAo 

(?|JM t IT, b 5Atelllf^© ©' 
/^(©Igj 4flxy ±lf-CA4 t„ 

/HA, 3^©#* f *of, *&§©H4'4 
n1@©PIS**T*' f> A& I'llie l A©#e 
144 of i' 4 to w U-4—^e|)j*‘tRS 
14 1 t$c, Uf &T i-.e < 4 PJ«g* { d'$ 
U.'5^ftf, rao^t'if©H#Sr# 
Li^A4 ti'5 i©ft„ 
C©^'°X>14B'ftWe#A 4 tiA©4 5 
4 7^3"y x'Af MU 4 to #£ A.B.C 
t L-Cn#g©ni?4A*-C,C^#tif-& 


14 , 

1 n-l®©m^Ai'C,B^t 

2 n#i©P5S5rA**C.C^^t 

3 n-11®©n«24B*>c,C^#t 

t 4 y 4 to ^IS©f n X? Af I4±E© 
7^3"y Xac n = l© t I 1 ©^-T^feltt, 
P»«r«i**tfci’ 5 ^Ji© r MOVEj 
A 4 '£>!?**£> y 4 to at*I'4.fc5^ff 
eI4«ijy l 41*’', Kraef ifc; t e 14 
4 y 4-tAo 4®if^, AfeOfeJE «#*> 
e#L^A?>iA4) 4 y i if 5’PoTf^L 
$A (> Ai4*‘*’'raH4©f to 
TRACE M0DE21 tni4*^1rfta??t^ 
f^LT 14 < <x 4 t* f , @*’'770 < A 
Uf ft 4 y WJ1141' A 4 t Ao !&S4ti 
^I4 r if 5 ’Pot|lj*>t*'jo 4 y r MOVEj 
©t: A AU4©f to ft*' 6#»IA 

MOVE(@X, @A, @B)< 

PRINT (MOVE @X, 

FROM @A, TO @B). 

©4 5 e Lf r MOVEj i'itTJW: t & 
ewa ?f36^$tf J p4©fto Pro 
logf r if©4 5 ej ti'5KF n ( Jewt4X 
3f 7A?r#4 t §14, pgi'ettif 
efifeijyt 4 4 5 t:7^3"y Xa£#A 5 z 
t©|j*>e, if © 4 5 e^ffI6S?r^^t 
4 *■ i #A4 < f 144 y 4tA 0 
4 ) «x©+e*#*''iElif # 5 
A t A14', *Hf£©«el4 1®e8RfflT 
4SctLf rAA3fe TftliEj t*i' 

f * y 4 t„ Kf 

MEDICINE (ADULT, 3X. 

MEDICINE (CHILD, IX. 
t Lf tei'f Era 14 

MEDICNE(@X, @Y). 0 
11 4 t r 5cA4<i3i£j 11'5 ©* f A>*' 
y, &e ANOTHER.0tt 4 t r 7«4 

?. 1 icj 11 ' 5 4 t * { 6*' y 4 to o 4 y , 
C ©S©PbI i' e 44 L f 14 7°n 7'7 a t Kf!H 
©#i£USt ni4* Prolog 14 * © 4 4 f 
iftA4i'^ tl44i'ti'A4t 0 St, 
AtfA Cf &m-T 4 TARO S14 if 5 f L 4 
5*> 

MEDICINE (TARO, @X). ED 
t L f i Aft L f L 4 1 -' 4 to -»W4# 
'£•1-44 Lf 14 

MEDICINE(@X,3) < (@X,IS ADULT). 

MEDICINE(@X. 1) <(@X,IS CHILD), 

t Lffc§«F n 1fflerQ4jti.'5aiI% > , 

Q4(@XXCLAUSE(@X, @B), 
PRINT (IF @B, THEN @X), 
FALSE. 

Q4(@X)< 

PRINT (I JO DESU). 
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THE SENTINEL 


t LTfetflf 

Q4 (MEDICINE (TARO, @X)). 0 
■t—fotkWIelstt'g*. **# <otil t(HlOL 
o £ •) 7 — >•? 7 f - L 

L f I'fc© CM 
L, c©*HWXfr*r«:*W#«:»LT 
lT<.'4©-ft. 
x f a© 4 «g-ft. 

m&X < HH< h ->xf Aj (* 

^cfiTfal, 

Sttrfcftft-tf- i ntu©: r *Sftffli§ 
©gttftttj. eftHSttJ: OJ-TttKM*: 
*tt**it**ffifc* fc, 

6 z ta^ffCft^Tt.' 
SJ; 5-ft. £ w "TPrologi- CM 

L <t 5. :*Uft 
Jt&0£ftj&e»:*ft S KIRIi: 4 *> i t*> 
C., r TRACE M0DE2j -f'35ft 

L T < tl 3: To -C'iZ <D®& ?> $1 

^ h 7 ?<?i f g:oT 
ZZ'C'l,lgz.*lbt(DC-fe'>tz 
85 («t«) ©JMr«jRt*J:5i:t 
ftIfi■'i'© X'- t. 4t#»t:«ofct'<T 
©®5fc^jjrf *©t>.b*‘t) c < < & 4 tg 
i' * TO-f. S©*^ftt $ -ti-C 

1*111 CWHYj 11 ' 5 i£Ig-f 
7"d/7 a IT£ i) i -fo 
c,t,t< 4Afl»0*(tt«r«o-ci.'ito 3? 
ft 1 1: X 511 jR L T & 1t* 5 \ 4 A. t 
ti'itic, L < ^o-Ci'5 tgi’i-a-A*' ? 


• H10 »*©*E£fl=tfASIiHI 


0 Q4(MEDICINE(TARO,ex)). 

1 Q4(eX)<CLAUSE(ex,®B), 

2 PRINT(IF eB, THEN eX), 

3 FALSE. 

4 Q4(eX) <PRINT( IJYO DESU) . 

5 MEDICINE(eA,3)<(eA,IS ADULT). 

6 MEDICINE(eA,1)<(eA,IS CHILD). 

mm 

Q4(MEDICINE(TARO, eX) ) . y 
IF ((TARO,IS ADULT)), 

THEN MEDICINE(TARO,3) 

IF ((TARO,IS CHILD)), 

THEN MEDICINE(TARO,1) 

IJYO DESU 

TRUE - Q4(MEDICINE(TARO,eX)). 

< O*' ? j 

b L A 4 b 3 i£ 


UMfi^ 

■UiiU 


ftfrOlz 


Z mrProlog-850AH5f^ib 0 i to 
0 (omtkm t ftT@ $ A ^Prolog*-*f L T 
k # 5^5«SHr^fc*lfc-fLj: 5 *\> Pro 

•mi 


log t ^ 5 4 A t fc < «r* c § 

# z> % HIJ** C,$ft* t *? 0 © t Wo/: 

ru: 9 ^? '> 4 < Hftr-totli 

Prolog 11' 5 

-rr**. 

J: 54 6 


1 WHY(eA)<CLAUSE(eA,eB), 

2 ANDeB, 

3 PRINT(eA), 

4 PRINT( BECAUSE), 

5 DISP(eB), 

6 PRINT( ). 

7 AND()<. 

8 AND(eP:eQ)<eP,ANDeQ. 

9 DISP(())<PRINT( IT'S A FACT). 

10 DISP((eA))<PRINT( eA). 

11 DISP((eA:eX))<PRINT( eA), 

12 PRINT( AND), 

13 DISP(eX). 

14 -- 

15 (ADAM,IS FATHER OF,CAIN)<. 

16 (ADAM,IS FATHER OF,ABEL)<. 

17 (ADAM,IS FATHER OF,SETH)<. 

18 (SETH,IS FATHER OF,ENOCH)<. 

19 (EVE,IS WIFE OF,ADAM)<. 

20 (eM,IS MOTHER OF,eC)< 

21 (eF,IS FATHER OF,eC), 

22 (eM,IS WIFE OF,eF). 

23 (eG,IS GRANDFATHER OF,eC)< 

24 (eF,IS FATHER OF,eC), 

25 (eG,IS FATHER OF,eF). 

26 (eG,IS GRANDMOTHER OF,eC)< 

27 (eF,IS GRANDFATHER OF,eC), 

28 (eG,IS WIFE OF,eF). 




mm 


mm 

(eX, IS GRANDMOTHER OF,eY).y r t£*f ft <7)mS4 ? j 

TRUE - (EVE, IS GRANDMOTHER OF,ENOCH). EVEtfENOCHcflffiST'T 


WHY((EVE,IS GRANDMOTHER OF,ENOCH)). O 
(EVE,IS GRANDMOTHER OF,ENOCH) 

BECAUSE 

(ADAM,IS GRANDFATHER OF,ENOCH) 

AND 

(EVE,IS WIFE OF,ADAM) 


r 4if£'?j 
4 if 4 b 

ADAM(iEN0CHC0^13CT'^) i) 
EVEliADAM(7)mtz/)' b T'f 


TRUE - WHY((EVE,IS GRANDMOTHER OF,ENOCH)). 


r 4if ADAM(iEN0CH<7)te&£' ? j 
4 if 4 b 

SETH(iENOCH(7)3CT-^U 
ADAM12 SETH<7)3£/c;4 b T"t“ 

TRUE - WHY((ADAM,IS GRANDFATHER OF,ENOCH)). 

WHY( (EVE, IS WIFE OF, ADAM) ) . y r 4ifEVE(iADAM<7)^/r ? j 

(EVE,IS WIFE OF,ADAM) 

BECAUSE 

IT’S A FACT ^fzb'b T'-f 

TRUE - WHY((EVE,IS WIFE OF,ADAM)). 


WHY((ADAM,IS GRANDFATHER OF,ENOCH)).y 
(ADAM,IS GRANDFATHER OF,ENOCH) 

BECAUSE 

(SETH,IS FATHER OF,ENOCH) 

AND 

(ADAM,IS FATHER OF,SETH) 
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CTCtt$ 5 <fc-to 4 M)Zi *3 


•^SA^aftiio &**?^S'-t-Wt'-To 
5t, fcBfcEli, r CZ-8BM2%^ie 
±j i ITZ80CTC£Z80SIOIioi-'C'PS 
or*4„ CZ- 8 BM 2 li, 0h!MZ©fjc#4 
tl't'C-^lo-Cl'S i — (7, RS-232C* 5 1 

X * s O l' 

74, 4 A 4 A ©-4- VXh 4 „ CTC £ SIO 
li£©X- KOtt'itft4 , »C x \/Sibtf 
r*4*\ lioMgot, 4©tf'-Kli 
turbo 112 t A £ PI C & CO-T'* 5 .if—©& 
i'li, I/O 7 K w XT", turbo T'li, 

SIO = 1 F90ii ~ 1 F93h 
CTC = 1 FAOh ~ 1FA3h 
74"o 74©* s , CZ-8BM2-t'li, 
SIO=1F94 h~1F97h 
CTC = 1 FA4ii ~ 1 FA7h 
t 4 o 7474'ltr* 4 C 74/4" L 4 ft lifting 
[ 17^74 t>©* 5 4 7 74'o/4©r'*4o * ? , r}J 
B£$ft4 t © tIJfifaiSrlftC 1 i 4 7 4 o T 
i'4 74'/>7<> L*“l, turbo© model 1017 
fig 5 T © £ £rii/4"*r, 4 t;^ c, 
P 7 i£ £ L 411 ft IT 4‘ f> 4 1 > i 7 74*\ 4 
|| ® i 7 4S|3'9-170i'T t>, IS^Attf^- 

5T, 44rt'©i-4;b'#t-r j P4*‘t 
j*5 t, £ t*liCTC©ii|biXA4fit:'>7: r 7 
j 4^0 T L £ 
7©r*4, *Hl£4A474i'4-44 t 
T'ti4 < T, #§& 4B.I C, T?4"0 40 tSti\ 

** ttiai 14 cd rxasic 4 £ if-c 4 

oltT L £ 7©T'*4„ 

&17fiT4^ 4 *■ fc i'5 t, "Plib-^bx 
K 7 4 '*—*£*?r>X L £ 5 ©T'* 5 OKI! 
74'i)» 4 ft li © 4 fi'ftXfflfi'Jc f s/j*c 
tf—AX'-? - 7 >sgc L X L £ 7 ©T"* 4o 
j r figt'{>CDt:447°n^7 A«®tf 4t'j 
11' 7 ©* ! '4 © r K»i: : fflsxij ©S^*' 


Iwai Ippei 

U -¥ 

#t4cD4"* ? (^qoT4 ?), fUi* x. T 4 CD 
«45SoT L £ (tfooo, 

*liflgi' t> A174 c>4cvu-f->4"-o4 b 
It-t, 71 I > h 4* 1 ltT4 : »' < )„ 

wmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmammmBaastm 

CTCiSIO0#*Bgr^5 

£ Tlil/O-x -;7°Xh 4o #1*01411^4 
SIO, * 2 ©CTCT* 4„ U7)i 5 
4 At, SI0CD7 Kvx*?l9854F6 fl-f-fc 
tf4tfA.it 7 CDT"* 4 o 4ftl£&©7Ffg© 

i'4-rt4*4©r*4. cosnofc* 

©7°p 7"7 A^ti’TlT, 'fotldl' 
74 l74Vr* 4„ SCitt'io/A 
T'li, ^HCDXf§;cDCTCr'*4* : , f-v 
3 iX’hlo goiumir 
4 t, 4 ft 0 cDtf-f 2 o© 7'Vi' — 

7°(:^*>n4 0 t447t>tfT>X'^0, 3 
1 , 2TS So 

3 life {> t: 7 4 ■7 t * b 
>7l7figbft-Ci'4©/4' 0 li^i'lST/ZSO 
C7f L T—£l#IS 4't I7fl| b ii4 4 *■ it T 
< ft 4 ©r* 4 o -XfciTlI 4- t Cfll b XA 
4*‘(tT < 4x4 t t'CD 4—4 7 '/ 7 h * f * 
4 *• t S 7 t, 4 t i If 4 ft*> t, ^ 4 J: 7 
4, W*4'«c.tJ»-@-C'*4o oi b, Z 
80 * 5 'EI|<D 4 t Cfgt* L X C' X 4 , CTC * 5 ‘ 
r *44, Z>PSG?4 C^cDt"—^ 

4 i*-r«t j 4 1' I fik-X < ti. 4 0 

■r* 4o -7 i b lif« : i ; CD <t 7 4 I) CD404"o 

frt-'tfx 4 imif, mb>r l i 71 , w> 7 0 # 


ft4a-ct'4imyri'04i.' l, 7 o*>b 

t nii"iT L «b f) n4NpM4©4r L T L i 7 *• 
I> Lii4t'CD-r*4 0 3 li 

^ CD X 7 i:figbnTi.'4CDX'*4 0 

2 liSIO (7'7 4* s 1t.'CC' 
4 o JtfFfO 17 jBJ4 L T c' 4 *■ t e 7 L, R 
S-232C1S30011'— (BPS) t 12001 ^— 
t*-CDfei£ii!t* s *4* ! \ {(Dt:sb<D&m 
7^4^o-Ci'4<D/'o T4>b1S, XI 
•T SIO 4 figfc 7 t T 4 4 c., i TCTC* f * 
—ISn 174 0 Ti'4or* 4, 

CTC/d:(DZ:^« 

ctc o =« -7 > k « ? nij t' ttiir « 41 ' o 

El 1 17* 4 ot 7 17 a -7 V Kli 1 'f'f h r* 
4 o 4 n4, 4 oOtf-Y >^7K7SiJ^ (7iM 

4 bttr* 4 o irXLA-iifMi, a -7 > K 

0li(7 r $ 4 An>X/?> hj 
4 1 b 4IM.4 4 t {> * 4 L, 171' 
^ 0 I7l| L f l£ r fiJ b 7 h 4H 

4 4 i {,*4 k n4'o©4 tr 
* 4 0 

£ T, CTCO^ 4 4 L 4, 4- < 4- < ffiiji 
<7mB;i L -r fc- < o «*J17, El 2 4 M. T 1 '4 
74" $ 741 'o 4 ii l£CTCO«iiEir* 4 0 r C 
LK/TRGnj t*“, r ZC/TO„j 4t'* ? *4 
* ? , 4 ni£CTCO*T-«r* 4 o r CLK/T 
RG n j t l£ r '/|'£i; 7 B 7/7 4 -7 h !1 *"j 

tl'74 tr, Stsi7#f t 

(7*SA*r*4„ r ZC/T0nj li r tf n * 

CTCT K UX 


«1 SIOTK'm 


T'KUT. 



1 F90h 


IN/OUT 

1F91 h 


IN/OUT 

1 F92h 


IN/OUT 

1 F93h 

%mm 

IN/OUT 


YKU7. 

§ 


1 FAOh 


IN/OUT 

IFAIh 

1 (sio^r^^UAffl^P'y^) 

IN/OUT 

IFA2h 

5^r>^;u 2 

IN/OUT 

IFA3h 


IN/ OUT 


■SM»ctH4xi J57 



















































































































































t>y Y/fiA at fj hj f, 4 t, b !A ,4] Aj 
i:*fSt4 (A.*AflA L T>*7«'3ffl©ZC/ 
TCfelAfcf:>'©tSc©tIS-g-(: A it, ii'nt 
t,'4)„ 

CTC©^ 4 i !A, 4 t 

-f* 4 „ Sc A >b 4 'Gi/ X IA® 2 © r CLK/ 
TRGj 4 l < IA, <fi 

(Xl-Tli4MHz) -r*4o CTC©&f-T> 
*7m:|A r 3?"’7 > * y > ? j i i,' 7 (, ©#? 
* i), fxfrjIA r b?">> > # >7 > Z = £ 4 a 3 
ft 4 ©IT'# 4 (M*a> 
x£> HA0~2554ig£l'C J P4) o 
•v>t^lA, £ift.£"iia# ; £x 
4Sc x 4 ©A;'**, i5J]®a-©''Gu x (1 #|, 
16#], 256]®© 3001^^4) ft 5 /_' tf 
cf >7 i of'ottib Ui' 

< ©-r"A>4 0 

Ht, > il V > $ A'Oil 4 5 t (® 
*;j* ? o Afo A; & ib IA, 256®«<b t 4 t c 4 
4), r ZC/TOj*■ ib O to ©■'■?.«'x4 flit 
(DfSi. ^xoScfc l/ni:t 

SOfiS. 4 *>hA.i*it*ttf\t£-l 
X — 4 4l'©'t', ''°A'X4ittt© fc I'O L 
AC, CPUCMLTSl]*)ii^5?1 4 
t5®rt5, A, 4ft* J CTC© J Po'Ci.' 


4 4 t T"* 4» 

3 -7 V KlA&e'-x h - i r-MMfrft-o Ti' 
4©t', D?* 1 ibUMCtPH If' < ©T"* 4 
5. 

D?IAf C4oA: i & C 

fi| 0 iia.4® 4 ?tSi't'74'®77 ft 

£> 6 a 

D6«^e-K(7)^-r'*4o in^nof 

yX'^ 17 r A) !7 K j t 4 '7 

-t-Kj ©fib Ib* , 4t££t4>bttf;b4 

*4 r t <7 y t i 9 A -? I A if 4 A 5 if — IS 7 A. 

-T'l'J t, A -7 fct4 kti^'.'fSh*) „ 

fA43?IAA-x t ITI'4„ b*-1 J Pt<S 

7 i, 

r *4 -?*- Kt'IA, SIO cttl&S Act i.' 
4Tn -x :?(<£ = X1T"U 4 MHz) 4Sc A 4 j,, 
r j&?y**-KttA, r CLK/TRGnj i 

i' 4j, 

f'7A:'tt©4 if Si. 

Ds lADettM -?*- KMM? LA: ill: 
0*M^]ifo o 4AUA, 7‘y X]r-7© 

ffifef, jt4gTf-c 

16fn (Ds = 0 ), 4 l < IA 256]* (Ds = 1 ) 
t4 4©Affg.AlAAi.'. m54ot 
i'54'tm, ?4xt-K«t §©A 


Aj©<£IA, HftW«:4MHzti’5.#5i*?cH 
ife»4©t, 0 -255 £t'L*‘4'.'**'7f 
tit > ?ffik.X 4, Scii^t 4©t: 4 ^ 
t 4 ft < T250ns*256 = 64ms l *‘4 < , * 
A 0'ffii'it* 5 4i.'* > *b i C' 7Zilog ©$M> 
ifi^TL bn4 (*S©iK.'4 ibf 

h ftmfcf % i A 7 Ct D 
**&!.'©(:. 7'77'7)o I*, 4 4 (A lb 
io t-ta4®«-C'*4o 
D4 IA-*- -x jAOjS^t'* 4 o 4 4IA (XI 
tlA) fi^-HA4!•'©'£•’, ®l4®Tfc< 

n„ 

Ds t> X1 fliS & 1 tMf iA4C'„ 

D 2 iA;A:i:^4 A2 xx7>] %'Miti'i 
1 ti‘<T)y y ff S i o DMA® : t i 
-fi'4 AUiA, 7ii4 >^U''X h t It xiA'b 
*■ 6 7 o 

Di iA V -t -x h "C 4 * s , t> A -o t 
SW-f'S io oil), CTCiA y-t-xh^* 1 
it Ibn4* , 'x44 lb, ?■© i ^oti,' 4 
~C A 1 b , ff L i' 3- 7 > KC®o> 
<ift] / H4 , Mi&t4©-C‘*4o Ao-c, V-fc 
-x MAAi'C]g; 7 ^^t"* 4 0 
DoiA, 3-x> K'©i#-g-c(A, Si: 1 i: l 
f is < „ $ b 4 < iA', SJ1 h 71-4 


HI CTC^ft-f-ir yj'Ji' • a > h □ —7P • 7 — K 


D? 

De 

Ds 

D 4 

d 3 

d 2 

Di 

Do 


Do = SIC 1 CtS 

(IFAOh) cntS^ltDo = 0 fibii, »|i)iAA-<X l-7K»}g3tt!MKSn5. 
SFX>^7H~3 (IFAIii~3ii) C*l)iW'l7 F7l-%-}83tT#A*X' 0 
Di = U Hr x F 

Di = I 'C'Bll'Fff it, bLDztftKbii, * -UiQVT.* > 

Pjflte. 

D 2 =a#Nl«»«)** 

dz= i -pxcaia 1 7W f* ; x< a^>xx > t 

Dj= f U*'C7W* 

COTt'x mx-f 7t- KCfcX'TOT***#**)*. 

D 3 =|-TF'J# (CLK/TRG) CixTX-rvKfF^PjflteTS, 

'jObli' F 'J XttlW&tP.', 0, 

D i = X *y ZXDiMlR 

DiT'fo h y *'<7)^TfS] ±*>T tmir) & : /k&> 

z > 0 d 4 = i j, d 4 = 

D.i = I % 

X., D 4 = 0 4'«b(f3£*>T^U XIT'tJCLK TRG^A?>A;L7.<7)3i:-t,Ji*'y 

t>T*'y^)W8ltia-l'<7)T t (CLK/TRG.) ACL 

K/TRGi, 2C(i2MHz^TL'^>(7)T'. ±%±.tfi) t U l/2MHz/2=250 

ns, CLK/TRG 3 Clif v >*;U 0 bZC/TOo^T L^ CTC<7)t45| t ITI (7 )vn°;U 
^ AL^-b^y t3L*>Ttf y(7)MRS(il/4M 

Hz* 1.5 = 375nsT'&&) ; , 

D 5 = yj^-70)I^ 

Z (7) t* >y V^E- 

Ds= I T'7 'J (4MHz) ^256^1-^0 Ds = 0 T'l6^IlJo K 

Tiiy 'J 

Df, = ^ - 

D 6 = K, D6= 0 T^'T7^E- K^SjR^nS. 

D;=iijy&*>f *-7';u 

d 7 = i (zfc*fcu f c-sgy&#fc*gw-ro 



















































































































































mx.zntzbtDimmzftxa ?„ 

CTCYft, SU9&^Y h/Hi, yy> 

o i:MtT©A}aSt'i J:t i:!t-5 

-Cl'S (oj 9, «.9a*''«Y h^Sr OU 
TYS 4©ftlFA0 H #JlbC©*)-. ?nt>, 
ftflO f--V- > * /Hit U 9 & A £ A* (t t> ft U l' 
©*> fc, — BSo T L i 5 4'Z> 5 *Y'£4> 
4-, •YY>X'71'0 CML-Tta^'tS fc, fdi 
© 3 Yy 4 ifMOcfU 9iiA^Y 

fc 2 <-* f Sl) 9 ST B>4x4©Y* 4„ 
attt4o0^|>^ (8'M h) * ? 3: 

ta-crassttscD-r#*. fcf.ru ?® 

8^M h t:ft4?Y®J|5B*fcb4 0 £4xftfc'- 
&9> — : ti’ti'7 t> YY 0 ©^Y 
h^ft, 

&B ? ? ? ? ? 0 0 0 

©<fc-t:, T3 fc'x M 5 '0 UioYi'Jfcft 
iU£%t>t£i.'<Dtto + 

©^'Y |> ;i-ft £ii£'ii, 

1 —* &B ?????010 

2 —> &B ?????100 

3 —*• &B ?????110 
t 4' 4 o 

r feo,::i:8^M ^ 
=t L «t L, CTCOfi] 0 ii* 
r —X L i is ? j 4‘t'ti’K 
i liflPSn^i'O^o oi i), ^08^M 
h ©4fc9S* ; 

x x x8h*-x x x Oh(T 3 t"-7 h* f 0) 
Y4:ft4xftVii4:i.'©fc'o a-S';* 5 


iJSt'As. 

CTC(DffiU73r^S 

JT, fo-HZ. —fc' fc HftBfl Lti fc*\ 

X 1 ©4§-g-ft''- K6<J4:CTCcD^i'^r*' ; ¥ 
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m&t'b 4 ©fc'* ? , H4 - t ft X 1 Yft 
ft X. 4 l'© Y* 4 («7 -SIM iU\.'t't>5) o 
X l Y©CTC©f£SU ft«*Yl#¥TOT', 
&® 3 oirfft-O 4 0 

1) 02i:^l4-i5i:, X l Y'ftf-Y > 

*7i-Offl©CLK/TRGoftVcc ( + 5V) 
i:o4iG-Ci'J 0 'fti-x* f 

-e'A-e'Afcfci'OY', T-Yv^oft* 

*-©*§£-, 

YY >X'2i- 0 Ii4^s~16.384msw fc Ufl| 
9ii&4-*-ftY < 4x4„ 4©fl#[SJ* ! '3£-f 

r 4 *>, 4> 3 ? t' u * y <d FbIPI* 5 !# & <n 
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0 fc *&*£•*>■£ 4fc, ftft 4.194304#© 
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i'4©Y, 44' 


H 2 XI/X1 turboftfc It 4 CTC©£-Y + 24;K7)«J& 



CLK/TRGo 

J. Cl/I 

ZC/TOo 


CLK/TRGi 

ouu. 

-? 1 JU 1 

ZC/TOi 



CLK/TRGz 


-*- oiu y T — 'i' h\ fti s n y y 

-?■ iz > ^ JU 2 

ZC/TO2 


cm^r. a, '> -y 11. D m >7 n ... >7 

CLK/TRG3 






L, s\*'“lo] i' A’ 4' •!> ft Y Y > 4- 0, 3 

t|5]GJ:5i:, gij 0 4 4 

tl>r'|!4 (CLK/TRG 1.2 Cii 2 MHz 
«Ti'40f>+>4'^ 0 <t 9 k f I] *> 
a*WHUr<a< Yi 4)„ 

3) OUT^Ylii <, IN^YCTCC 
7?-txt 4t, 4© t 
>^©ffi4-t#‘in4 0 YY/u cnii* 
i 9 $H.'if * s £> 4 t !4#x |q 4x4; I'o 
5Y, ^ 9 i'5 6I1 Y£IR(:I£oY*4 
©Y*4„ 3)1:^14^92*9 

>3? 5rM*d}t 4 t WoUJ. 4 4x4; 
f.SiJ9a*tfle5‘J&S* T 4:<.'OYAm L 
YiifcibY) x(6]^ Yi 4„ 

') x h l Y*4» 

100—130ftYli^fSS 4 ©4:©Y, &^Y 
VX'-'H: 3 k OUT L Y V Y x h LYi'4„ 
C 150ftY> Y >X'0 t:OUTLY<.'4 
©ft, &B0 0 1 0 0 1 1 1 Y* 4„ 
)iMt:aYi'< t, 

• SB 9 ji4>-4; L 

• 9-fxY-K 

• 7°!1 XY-x ft 256'9-SI) 

• &S*ftl Y&i' 

• IffitIL Y^i' 

• <’k\'- 3?4 z,3>x 4?> hft9 

• 9 t-ft (D 2 = 14/** ^4^32X9 

> Mr * S a 4 41 A: * k YUl^Mte) 

• Do4j'*-C> 1 

t4:oYi'4 0 44'*‘f,i>:i:OUT LYi'4 
“200” ft94A3>x92l Y£> 4 o 160ft 
YftYY>X'2i- 3 i: &B 0 1 0 0 0 1 1 1 
4-OUT LYi'4„ 44xfcliii;I,Yi.'< t, 
•SH9iiA4-Lo 
•*929Y—R 

• 7°y X9-7liSi4 L 

• fSt&LYJtU.' 

• Mif,4: L 

• <kl- Y4 A37792Htl 

• y -t X h (D 2 = 14'*-1^94 A32X9 
>l'4-* ; §4ii4xY-*t YSjf'NWte) 

• Do4'*-B) 1 

Y*4 0 150ft t Is) U <, <Xi:OUTL-ri' 

4 “200” ft3M-ka>XY>l' Y* 4 „ 
:@i 9 I2CTC4-1X^4 t, £' 9 
4r4**ti'5 t, 

l) 9 L Y>Y2V'0ft^4^Y-K'Y*4*> 
f>, 2X729B +9041 (4MHz, JUW 
ii250ns) 4SiS. 7°y XY-x* 5 256, 

;S»cii5Xi 159 







































































































































ft A, \- **2<X>r* S *• C>, ZC / 
TOo * • 4 ' '"a- x 4” tfi f ISIPft li, 

250(ns) *256*200 = 12.8(ms) 
i 4 S„ 0.00000025ft>)U«l© 

X £ {> t c L T, O.OmftlSDW©'' 0 ^ 

2) li^v^-Ki:'*^ 

CLK/TRGstr^S'fti'XS’lU S„£ St: 
liZC/TOo * ? oA'* 5 '-? 11' S A* <o, ISlljO. 
oi28#w t S '©ir x^Sis; t (- 4* 
So *'fA3>x*>|' Ii2004f*‘ £>, O t 

O''°/i/X* i '^SIgi: r 200, 199, 198,., 

2, 1,(-B#0)j fc 4 S» {0<JcU:Jfc 

200 T, 5£ t £ft££#yjMf ©f*So 

ctc 

©*$5t t'xli', -x-fi]y 

x -r'*s 0 ai 

»i:ffif'J4 i 5 C, CTC©1 S:;e 4 BASIC 
r*<.' t * S. y x h 2 li, r SH 9 ii*3;ft 
0T-t>7>'lxK !1 x h 3 
A 1 •?■ ft^ftio A'f^lt* S 0 C. ftli, turbo 

BAsicriisn y & i 

9 1 w x £ ©■fit) * ! 'j£ ? 4 * i\ 

y X h 3 £RUNf S t r OKj fc«7^s 

tit:cot,, Hiiicy mt■t ”*h i o 

LA*L £©fifcli£ r>t: < IE#4BASIC©^ 
-x > Kf$t> ©$!!(: 4 o t t,' S lift'* S, 
Kli:y x h tt-otAJ: t if* So 
k ©if&lif x 7 4 x ft4 < 4 

S **, CTRL-D4Wf li'i ftS li 

ft'* So sftlijltfWi j 4f>7°/ut" 
* S **, * 4 -x -sn y J&* *j®n$f S t: li 

4 X 7 ^.ikl'tihi o 

t'li*0§ft:4ca f &U oto &©*•£, 
(lot 1 ) t*So 

i f, 220ftff- 7 >f ^0t: ft Lt'Po 
tt'SStli, *4 Aa>x^> ha* 125 


c 4 7 1: z i EJWi y x h l © 160 ft fc II 
IS f * S o &'i:230ftt'58 H fc OUT It l' 
s* s , sftiiDo = ot‘'*s*'iiti|yii*^' 

7 h ^©Ix^t* So :Hi:iO, SHIli 
*^'7 fc 0 Ii58n, f 

>t 1 li5AH, f -V > f ^ 2 li5CH, * -V 7 f 
^3li5EHt4S. 240ft U* S* + >f ^ 
3 CDgfc^lf Dt = 1 t lTfi|y&*fc*sU$ 
f tt' S^Ulft-lit ft b y X fc l © 160 ft 


t P U f * S o 

5 t, A i o fc#j<: t lift 180 ft 5? £ 
xi't:tsi?t:i' 0 z s-cooseh ##&*•£>© 

2-’M h C00 h, EOitf a-1> ii/vf t' So S 

ft* J f- -r>f ^ 3 ffl ©gi| y li* f— y* >t t* 
*So tt#iiiicft4'Uf'*s„ sftf'f 
•v>f ^ 31 :i y, 


250 (ms) X256 x 125 x 125= 1 (ft) 

s-1 t:«i|yii**' ; sei", ^©sueoooh# 




u X I- 3 J-fx-llUiiAWoTBASICt "**" ; turbo BASICTiittA'4't' 


100 OUT &H1FA0,3: ’ff>^0 RESET 
110 OUT &H1FA1,3 : RESET 

120 OUT &H1FA2.3:RESET 
130 OUT &H1FA3,3 : ’ f f >*)13 RESET 
140 * 

150 CLEAR &HE000 

160 MEM$(&HE000,16)=HEXCHR$("F5 C5 ED 4B ID E0 78 FE 40 30 03 01 00 40 3A IF") 
170 MEM$(&HE010,16)=HEXCHR$("E0 ED 79 03 ED 43 ID E0 Cl FI FB ED 4D 00 40 FF") 
180 MEM$(&H5E,2) =HEXCHR$("00 E0"):* V/uS TABLE SET 
190 ’ 

200 CLS 4 : INIT 
210 * 

220 OUT &H1FA0,&B100111 :OUT &H1FA0,125:’>**0 SET 

230 OUT &H1FA0 , &.H58 : » 9 1* SET 

240 OUT &H 1FA3 , &B 11000111: OUT &H1FA3,125 : * f f >^n<3 SET 


160 


Oh! 


M2 IS86. 












































































































































tSLti'C>itk£ s ') x h 

y x h 2 © 
TVifliT© t Ja' *) C, 1 '' 
ft (8 K-y H To/5 7-( x ^t:x"— 
**■»!>&A-Of<4'lt-r*S„ 220 I> L 
< If230lf© “125” “1” CfcSU&X.S 

t * & iiA* s i£ < 4- SCt”, CLS 4 t Jl l' 
£ 4*l*-^f 
4. 

MMMMMBiMBWB M i i iiii i iii ii i ' ii i ! ■■! i hi i 

mm irass 

* 4 x—f|i| 0 um t 

X If &© 3 o * 5 * (f C, ft 5 4”5 5 o 

1) -*© y T'A-r'M*‘T I4i' t |! 0 

4 t i If turbo BASIC©TEMPO£T"lf 

Da*OWIHrS£iL Sett: 

£ 4, T — a © TfTfi'J 4 it® *% A X 
X**'>4t't §lfi£<, £i't§0fjl< 
4o 4 IT SCOT f < li>IHi ! , * A 

-»-*H>a*4rffi5 tlMRWIlf^ut© 

f-4e t Tiitts e t* ? -f# s 0 

2) 200: t T|B]B#i: L4i' t 
-#£c^J* ? |b]C < turbo BASICCDMU 
SIC@ ~XX'f> S o turbo BASICt'lf MU 
SIC@ £T©iH#f- * If (£ -o *■©) *< 
v?7 r-AHXts < 4'lt'C’, *(S©ig# 
If*©* t i:*k< 3-?> Kfc&iSL 4* s 
£>, *f-v-iij !)&*{:£<>Tita 
4x”—^4PSGi:jI0iiti*e li:i Mr 
•5Ti'4.!>-5tIli:foT Li 7 tT' 
- a-TPCG^Tx 7 a "y 7 Srfj*> L 4* ? 
b ( y x"A4ff.TS>Ti:) BGM TxIjT: 
W&nA^Te t* 5 t"§t So 

3) a i' J§!&3g« 4-1# 4 T cCPU 4r 7'H: 19: 
t'41' t 

Oftlf2)©ig&t*-4 Ojffit' {>CD4"* ? e 
eT'iilESiJ L Ti>* < o 

5 CD** (TTIi 27|-yi7U J) f 
') > $'<-y7 rX'fr z> o z nu‘7°') > ft 
®ff 1 ?a**«i.'4*I:, CPU* 5 1 e 4 
£ I# 4 $ ft S CD Til It S 4 * © {> ©T"* 
So t©4*i:I5* ! , x°y>^*-c,^: 

If READY!! Sf 11' 5 t> © *** T i' 

x, ztin ctitsa, fie try >* 

i:f"-7t , UU Hot Li'i-ij t 

i' i e t T^tTH^'C* s 0 e©iM^-* s 

r £4TVj T'*S4 4, CPUIflfo-C 
I' 4 it ft if* 4 © 4 1 - ©44 :: X'7° y > 


^^f5»7r©iJif^^fSif-i:MTS„ £ 

fifty >^Cii) A't'f"— ?I4«'2 7 
ri:Antfe{. ^ —fi)ya 

&*’>*■ S 4 O' 5 't: READYii^r £ TiX? 
IT, r Iot {> I't' £ j texlf 1 'M 
i'&oT j ps©-r'*s 0 £5tsi: r m 
©f±*T 14*H, 0#x#T4I.Sj t 

4)t©L©AV*'!) CBflt^^So 

i:fi| yiiAT&e LTin 
S ©4"*‘ C,, *00ft**c;L-Ci'ftljri# 
P H 1*' ; IE5tt:T* > S©T'*So 1985#l2fl^- 
©Oh! MZ KUmi: tfix'TTS * 5 , 34 
#©a«S4 t IfDMKiit'a So £47X 
y*5fFT*-ry, fio** v-ufrrsr 
#bT"*S 0 4 t A If'Wf, fflttfcir 34 
U-Tfi-rH-s e t fc ffiiHT* So 
*e-C'£f, 2)©BGM i't.'PotiJ. 
MJt© 4 * I: y x t 4 lift 4 x-fij Oii* 
tttfe4<.'*&■ l>«c-tfTte< (ItlfB^x e 
©f-4o t HS©r r *o, ^aiftu 
rbo4" 0 < * o, MA-T'^ S b A*‘j 4 t t 
1-3X1 -a-—if-lfiliiSc^t, S©T*-3 


4)o l&W L f 7 o #^C*A-r\' S MEM 
$ Xlf ■7j'>i/B/7 a*j: t'T'lf 4 <, 
WMr-ZXflb So ^:IH3 BASIC 4©4T> 
CSWUi:tD^-PPU4tfo 4A 5 
* 5 , fAlf L 41' f — i:T S ©44 X\ i*# 

r- ft ©®SL4’* 5 , o nif 2 om t *51 *& 

i:4-o Tt' So »Jlf®¥T', 

® 1 'U h U* s 00h~0Fh4 *3>l£4 k nif P 
SG©^> ;; 'x^S : ^-r'*So PSG <Dk<D 
l&’j-© u if 7, ft r.<k<D l oM t *'■* |i ~xK 
£ tU. 

©1 om h g*' ; 10 H I) L < lfllH4 iilf', -t 
nifZx-^f h (^KOJJL) 3X> K'r 
£So 10 H ©f#'o‘lf<^C©l'’ if/ f hOffiCffi 
at SBfrfJ, PSGi: Iflsj& Hf I*ii £ ft4 
t' d$nt L4t')o hh ©^-a-iffii' 
fs-A YXft So <k<X> 1 h x 256 t: 
ffiitSHm PSGl:IfM t S-TsiZs£ ix 
4 t'o 

e T-4'lt C ^ 4 A4"*' C, 110 If 4'It If 
ISliiLTfc < „ £ f If OOh, DDh 4"*>c>, 
r oSb-> ; x^i:DDH4e : l ! jiist)j t 4 S„ 
<fcua*2iaifli'j:-4 4©-ras. e 








































































































































Hi C © 3 ilc i -7 T, #7 V^A- A*‘ C,, 

“K" ©#* f ^mi5 (o8 H , dfh)- raise 
t c 4's o L *• L e 4 14 

(■.on, LMit-c^ 

G411 fili" APill©:?!:li “K" cPfle i4 

<■'©4' ( r 7°#7jtt.'? ; f!:4S)„ KT' 
IA'CIOh, 05 H -fi?*-{ H?gl'*+6. Z 
(Of) t— (gf-7 Vx-aA©^®*" 0 t: L T, 

k h* ! *s 0 enii music 

4 e t ©S) S A4 G b t' S £ 7 U, 
Wft t ^ & ©P.5J &W S4tf>©{>©-r#S„ 

Oi 0 X X 7 f — h -r * So ') X h 4 0f 
- * ©ttffiA li Alf :A4*5i:4-5ti' 
So 

$T, e©7°nx'7 -Mi^c-tx xtS 

*Tlf,feW4e l L**LTi’4i'o -5i 0 

RUNf S tillSioa^U “A” 

“ l- T^ 5 K - K ^ 5 K - 5 7 7 X 5 - 5 7 7 X 5 ” 
ti"5-fc=M BGM* f x>x>tit)iSJ 
nSo L*‘L, 3s±L' ib-o-i-'o TV#—i:i 
■o-C “A” li±Tfc&!:®)< * s , BGMIi 
(it At'Slftf !:&c< ©-Tabs. 

$-7$ 1x#4»a*'i-r l i iij\ zn 

(i r # 7 7 X X SfftjA-f j t !•' ? 7°n X "7 
At**— 7°(:4o-n.' S e t ITi' 

s ©r e t a* t« 7 t ,i f“ F” 
Srtbt4f.w:, PSG**©J:-i:#fc£L-C 
f 3 S„ o i 9 PSGC» 1 -' Vx X© 0, 1, 8 

c^nrnofiK^i-^iiA-r^So “sou 

ND” CGOSUBt S t, 7^M H'a-t> L 
< li7-*-4 h 3X> K* f MT)*-S ifli R 

ETURN 14<.'0T\ fxftJC “SOUND” 
CGOSUB L 4W-r-t-rCPSGli “K” 
0#4a , 1 LTi'S0-r*S„ 

7 x4i.Bo4 G (So *'4 ?) 265 If 
t: r ENDj SrAftTAS t in'. “K'”* S H| 
•uBtU'Stt-f-TiS (±*>S t 5liCTRL- 
D) 0 “SOUND” *'G RETURN L 4* t (i, 

# 7 7 x x sr-rnur m*. 

441, ^-7”C9W UA'C"SOUND”C 
GOSUB-f S i-T©N fIH) 4, 1fi4 
«•' i 7 Cl'S e t. c ftli 280 If 4W.T {, 

G x. lit)© 1 S t S 7 * s , TV# — A'(>0A 
444 < ##7 7 X X 
*#£-li, FORXrW^lti'S. £ 
©fiil®290~340!f li# 7 7 XXtlte’LT 
1 ' S 4 It © » - # V X f) S . 290!ffli“ A” 
4'iS LTl'Sa-»■, 300, 310!f lii < f> S 
t X- 7 X 4If U'liiSOFil-W-r* 
162 07IMZ 98f,4. 


S „ 320, 330lf liiBffi * ‘ G li <4 ai 5 4 1 ' i 
f 7 x l •£*•£>, •rli'ttllfirX, 
YCftALTi'S. 340 If «£©&*''.© 
I^TTCr ^o4o 

-rii, 2 El @ <:“SOUND” UGOSUB l 
4 t 5 lit' 5 iotl'4i>lTA4. if, 
(jij|n|© t 5 Ii7if t 3 7> K4W.7)Uf, 
4 © * 1 400lf *rW = W — 11 L 4 * t RET 
URNL4©-C'*S (6*-S*'4 ? )o *ftli 


440lfrf)S o $»Wi:2^'M M=l*ftA5 
ftAabtC, SS>i:-13ft4©4>G, 

2 H] g C GOSUB L 4B#*-riiW©ffili 4 
-r*So f S t, 400If© r IF W~j C3I 
<>*•*■ So t4f 1 3li'-C, W© 

fit4 3 1 : l-ra-G RETURN-r* So :ft 

t IhI uet *nv*f 0 c 4 s i -r9 ii $ n 
saif:>(., *gfj, 

1 @0-►PSGIi“K'”4aiL!if,-*S 


U X h 5 

BGMffl® 0 -7- V 






. Z80 





.PHASE 

0EO00H 

E000 

F5 

PLAY: 

PUSH 

AF 

E001 

C5 


PUSH 

BC 

E002 

D5 


PUSH 

DE 

E003 

E5 


PUSH 

HL 

E004 

2A E051 

PLAY0: 

LD 

HL,(WC) 

E007 

7C 


LD 

A, H 

E008 

B5 


OR 

L 

E009 

28 06 


JR 

Z,NOWAIT 

E00B 

2B 


DEC 

HL 

E00C 

22 E051 


LD 

(WC),HL 

E00F 

18 39 


JR 

PEND 

E011 

2A E057 

NOWAIT: 

LD 

HL,(MPE) 

E014 

ED 5B E053 


LD 

DE,(MP) 

E018 

B7 


OR 

A 

E019 

ED 52 


SBC 

HL,DE ;MPE>MP? 

E01B 

38 02 


JR 

C,OVER 

E01D 

20 04 


JR 

NZ,FETCH 

E01F 

ED 5B E055 

OVER: 

LD 

DE,(MPS) 

E023 

EB 

FETCH: 

EX 

DE,HL ;HL=MP 

E024 

7E 


LD 

A,(HL) 

E025 

23 


INC 

HL 

E026 

5E 


LD 

E,(HL) 

E027 

23 


INC 

HL 

E028 

22 E053 


LD 

(MP),HL ;STORE MP 

E02B 

FE 10 

* 

CP 

16 

E02D 

30 0A 


JR 

NC,SETWT ;SET WAIT COUNTER 

E02F 

01 1C00 

* 

LD 

BC,1C00H 

E032 

ED 79 


OUT 

(C),A ;SET REG. NOMBER 

E034 

05 


DEC 

B 

E035 

ED 59 


OUT 

(C) , E 

E037 

18 D8 


JR 

NOWAIT 

E039 

FE 10 

SETWT: 

CP 

16 

E03B 

20 04 


JR 

NZ,SETWT1 ;BIG WAIT 

E03D 

16 00 


LD 

D, 0 

E03F 

18 03 


JR 

SETWT2 

E04 1 

53 

SETWT1: 

LD 

D, E 

E042 

IE 00 


LD 

E, 0 

E044 

ED 53 E051 

SETWT2: 

LD 

(WC),DE 

E048 

18 BA 


JR 

PLAY0 

E04A 

El 

PEND: 

POP 

HL 

E04B 

D1 


POP 

DE 

E04C 

Cl 


POP 

BC 

E04D 

FI 


POP 

AF 

E04E 

FB 


El 


E04F 

ED 4D 


RET I 


E05 1 

0000 

» 

WC: 

DW 

0000H ;WAIT COUNTER 

E053 

0000 

MP: 

DW 

0000H ;MUSIC DATA POINTER 

E055 

0000 

MPS: 

DW 

0000H ;MUSIC START 

E057 

0000 

MPE: 

DW 

0000H ;MUSIC END 




END 




































































































































(W= 4XRETURN) 

2 0 0-*4i:i 14-1' 

(W= 3 X'RETURN) 
30i—*41- t. L4i' 

(W= 2 X'RETURN) 

4 m@—L4i' 

(W= 1 -T'RETURN) 

5 00—»4i: t L4i' 

(W= 0 -T'RETURN) 

6 0 @ *W = 0 4'*‘ G, <k<D 3 -7 > K 

*«+ 

h>?:t i:4 5. l 0U t 2 00, 2 0 

0 i 3 00, .Uli, 270-3700-4'ATf 

L X;i' n*'Wi $ i ftX i' b *• 

G, -1 CDtgj'frl&fi iTAJt ^-7 J 5 0 / /> 

00 “ K" c fc t:4& . <t- < #i 
tfci-s: t 4'A f , 440fr, 4500X r G 
OTO 400j t-a-t'i: r RETURNj ttS 
t, ^— y° 6 0-j)"ii 4 o x l i i ©T, c 
0f07"D/7A^fHtlli &*;**£> ® 
X*4 0 

t, MP 

#r"—*£t§LTi.'S7 Ki-xX'£6,, M 
PS (f'-^CDifiib), MPE(r"-^0^ 
■bO0&') li, BGM fc8H)Jg+4«>0i 
0X, MP* ! 'MPEt^L < 4o4G, MP 
t: MPS ^ftALX^oX^OilLS-y-X 
' 4 ©x# b o * t ii24oftx'* s * s , w n 
li A A 4 G li'DOOOn *• G 0 0 ; ^r -* ©£ 
He, 

07h, 38h, 08h, 00h 

11'-5 i 7 i:A4xX J PS^'|i4''o404'’* ? , 

7 Y ^«'n: l i O XU L < 4 < 4 b 


©Xf-tt ? 4 L 4044 i, EJLhX * T 0 
tX'C5\oT'4c t fcJS? **, :«7^ 
-77 fcfigo 4^-fr, BASIC4A 7 *W > 
>a*4'T> 5 *\ A -v 7 7 £ -7 

>0#«-* f |f^4 0 t «ii:4otl * 

7 t, BGM 0!) A'a (t>4?) fc—£t: 
ft-3©ttM*0tt404'. *1* f) 

b Sjifii I: 4 O 4 GiftJrl-7 < b ty-fr 
4f», $ G t: £ ©fficA -v 7 *W)MT 5 i#£-X 
^0®e, 7i(t^L0tti 
4lii® 5 -a- X ^ G 411 n(X4 G 41'044 
5 U’IS'Xli41' 

£ C X', CTC«* S !) > 7'1 --W. b 0X* 5 „ 
9 4-*- iUDJi&CJ: oX£'6 5 0li&0 
2 A;X* 5 o 

DGOSUB “SOUND” •7 , + eS**4 
( X {> <£ t'o 

2 ) t > A 4 — 5 e e fitio 4 © fc o 0,4; L 0 
4 < X t J: i'o 

4 A 4 4 A 4' ! Si li r 0- 4 L 0 X — 
A 4#GM eft-: 2. j XttXiftAX' li 7 0X 
ii4l'*‘o ! tl'7 c tX'i x F 5, 6 
X’* bo y X h 5 li, !)3M 07°n X '7 

a «««(: i 0 i t **. 4 J: -4 4 
0X'*5*‘GiM)L4i'o 

38li7;355 

m± 0 J: 7 4httx*s„ ^00-t>7° 
/Hi, 7 K > x 41FA4 u~1FA7h i:f G L 
XXXIi", CZ-8BM2 4^#L4X 1 XI)J 
< liXX'i So -tfO-1 4KLTi'4S^ 
4i'o I 4, V x h 6X'liPSG077>A 
A> B, C^ffioX4<.'0X, 1985^-1100- 



0 y x h 3 4 '> /? $ i X, 7 7 > x- >* A 4 1 ' 
CG4i'l7i:t4t BGM t 
#ft J0Ti J. 

I'it, 1100-0 V X h 30 120 if C* 5 
“&B000111” 4, “&HB001110” cTniif 
J: i'4414044 :nXft>i^Aiih 
->, B t Cli/-f X'i:4So £'-44 t 
CH'4"A 7o jh*Stlt(i, r OUT &H1F 
A3, 3j X4b b 0 
li A t 7 li r 100^H?Fftj t 
(-^WH r lf^i:4Egj^aA-Ayio'7 7 7 
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2A 

57 

E0 

ED 

5B 

53 

EO 

B7 

ED 

52 

38 

02 

20 

04 

ED” ) 

180 
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00 
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350 MEM$(&HE051,8)=HEXCHR$(”00 00 00 D0 00 D0 C0 D0 M ) 

360 MEM$(&H5E,2) =HEXCHR$(”00 E0”) 

370 ’ 

380 SOUND 7,&B111000:SOUND 8,0 

390 OUT &H 1FA0 , &B111 :0UT &H 1FA0,100 : ' f+>^/P0 SET 

400 OUT &H1FA0.&H58 :’7V3SVnil' SET 

410 OUT &H 1FA3 , &B 11000111 : OUT &H1FA3.25 :’fi->^^3 SET 
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100 
110 
120 
130 
U0 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


290 
300 
310 
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330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
485 

R1$ 0 5 1 7) 

500 PR INTCHR$ (6) 

510 IF KOS-'N' THENAES-" t' " 

520 PR INTCHRS (6) 

530 X-288:IF K0$-"N' THENX-600 

54 0 IF K0$-"N" THENC0NS0LE GH:PR INTCHRS (6) sAS-“*:M7 - 0:M6-0:M3=0:RESTORE 4070:GO 
TO 560 

550 RESTORE 4070:CONSOLE GN:PR INTCHRS (6) :AS-" sM7-0:M6-0 
560 GRAPH 11,C,0 1 

570 CURSOR 10,12:PRINT">** 3 7? Mil (Y/H) ' 

580 GET DH$: IF DHS-" THEN 580 

590 IF (DHSo'Y') * (DH$<>*N") THENPR I NTCHRS (6) : CURSOR 5, 1 2 : PR I NT' Y b N <*'4) *-* 

:USR($0517) :G0T0 60 1 

600 IF DHS-"Y" THENKAS-"N"sSHS-'Y":G0T0 680 

610 PRINTCHRS (6) :CURS0R 8, 1 2 : PRI NT"i>>' r tm 7 tVkil (Y/N) " 

620 GET KAS:IF KAS-""THEN 620 

630 IF (KA$<>"Y“)* (KA$<>"N") THENCURSOR 8,12:PRINT'Y b N 4V 4) *-*' *: USR ( 

$0517]: GOTO 610 
64 0 PR INTCHRS (6) 

650 PRINTCHRS (6) :CURS0R5,12 r PRINT”1*>**'7 *-* (Y/N)" 

660 GET SH$:IFSHS-""THEN 660 

6 70 IF (SHSo'Y") * (SHSo'N") THENCURSOR 5,12:PRINT'Y b N 4**4) *-** *11,1*9 
':USR ($0517) :G0T0 650 

680 REM *************** 1 *4i> ************* 

690 PRINTCHRS (6) :CURS0R 5,12: PRINT" 4*' V*) *%b %9~b's'*J~ 

700 GET STS:IF STS-’" THEN 700 

7 0 5 IF (DH$-"Y")* (K0$-'N') THEN CONSOLE C80 

710 REM *********** 09*4 10 J fci**' ************ 

720 PRINTCHRS (6) 

730 FOR Y- 0 TO 180 STEP 20 

740 IF Y-24) THENA$-A3S:F$-AC$:G0T0 790 

750 FOR N-1T032 

760 READ A:IF DH$-'Y" THENGOSUB 2130 
770 AS-AS + CHRS (A) :NEXT:READ FS 
780 IF DHS-’Y" THENGOSUB 2380 

790 IF (Y-20)* (DH$-'Y") THENFOR N-l TO 32:A-ASC (MIDS (A3S,N,N)) :GOSUB 2130:NEXT N 
:GO SU B 2380:GRAPH 01 
800 GOSUB 1300 

810 NEXT YMF DHS-’Y" THENGRAPH 00 

820 REM ******* *77*77 (830- 1 230) ***** 

830 IF SHS-'Y' THENM-l.'USR (S8F14) :G0T0 850 
840 USR (S0F14) :USR (S0517) :M-1 
850 IF H-l THENP-264:IF KOS-'N" THENP-S76 
860 Q-24:IF KOS-'N' THENQ-32 

870 GA-8:GB-176:GX--24:GY-24:IF KOS-'N" THENCA-0:GB-180 

880 IF KOS-'N" THENGX--20:GY-20 

890 FOR X-P TO Q STEP GX 

900 FOR Y-GA TO GB STEP GY 

910 IF KOS-'N" GOTO 950 

920 REM ************** 2y>li'yy fcs7v' *********** 

930 IF M2 -1 GOTO 1130 

940 REM ************** 3y>l>'yy tioy *********** 

95 0 IF M3-1 GOTO 1090 

960 REM **** ONLY G.RAM 1 ) 2y>$, a 7y 3 7 74%' **** 

970 IF (KOS-'N")* (X-236)* (Y-120) THENM6- 1 :M3- 1 :M-3 

M*ttlE*LSr*n!> itf/v. ift. U 7 »• tJB-s-Cl'fc hi 
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PRINTCHRS (6) : CON SOLE C40 
PRINTOOO^OOA^r^>>^' 3 7 fc37v'7’D7'7 44>" 

PRINT ■001983. 12. 20. By Chikayuki M a t h u n o ‘ : U SR ($ 0 5 1 7) 

REM ■ _ ■ ■ ■ 

rem ■ mmm ■ ■_ ■ ■ 

REM 
REM 

REM ■■■■ ■■■ ■ ■ ■■ 

REM 

DPU 

■ ■ ■■ ■■ ■■■ 

REM 

■ I ■ ■ ■ ■ MMMM ■ ■ 

REN ■■■■■■■ g ■ ■■■g 

REM 
REM 
REM 
REM 

REM ************* 74b A / tiOi,* ************** 

PRINTCHRS (6) :CONSOLE C80:RESTORE 6730:CX--2:CY-4 
CX-CX + 8:READ FS:IF F $ -"E N D" THEN 330 
FOR N-l TO 32:READ A:GOSUB 2130:NEXT:CY-4:GOTO 310 
A4S-'":A5$-":Al$-":A2S- ":A3$-"":A8S-":A9S-"':SG-0 
POKES0F17,05:POKE$0F1A,30:POKE$0015,00 
RESTORE 4000:CX-12:CY-5 
REM *** 2y>lv'yy (ys) j *** 

FOR N-l TO 32:READ A:A4S-A4S + CHRS (A) :NEXT:READ ADS 

REM *** 3y>l;'yy «>'(?) ) 957? *** 

FOR N-l TO 32:READ A:A5S-A5S+CHRS (A) :NEXT:READ AES 
REM *** 3y> y*'xy AtY7'7'>y *•;' 3? a? (4 1 0 - 450) *** 

REM y:FOR N-l TO 32:READ A:A 1S-A 1S+CHR$ (A) :NEXT:READ AAS 
REM 7 :FOR N-l TO 32:READ A:A2S-A2S + CHRS (A) :NEXT:READ ABS 

REM *:FOR N-l TO 32:READ A:A3S-A3S + CHR$ (A) sNEXT:READ ACS 

REM a:F 0R N-l TO 32:READ A:A8S-A8S + CHRS (A) :NEXT:READ AFS 

REM 7:FOR N-l TO 32:READ A:A9$-A9$ + CHRS (A) :NEXT:READ AGS 

CONSOLE C40:M7-0:M6-0:M=0:R1-0:CURSOR 5,12 
PRINT'*:,*'* ***9 *■?**? (Y/N) ' 

GET KOS: IF KOS-" THEN 480 
IF KOS-'N" THEN CX-32 

IF (KOSo'Y") * (KOSo'N") THENCURS OR 5, 1 2 : PR I NT" Y h N 4**4) 
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'980 REM ********** 3y> r y. 7 .U.j >') yil *********** 

990 IF (117-77) + (117-78) ♦ (y7“79) GOTO 10 7 0 
1 000 IF (M 7 - 6 9) + (117-70) GOTO 1070 

1010 IF (M7-75)♦ ( (M7->81)* (M7«<84)) THENUSR ($051 I) 

1 0 20 READ F$:|F FS-'END" THENUSR ($0517) :GOTO 1700 
1 038 FOR N- 1 TO 32:READ A:IF DHS’“Y” THENGOSUB 2130 
1 040 AS-AS+CHRS (A) :NEXT 
1050 IF DHS 'Y' COSUB 2380 

1 060 REM **** ONLY G. RAM 1 ) 3 i'y %9 'jY 71*' **** 

1 070 IF (K 0 S - “ N " )* (M6 - 1)* (F $ - " 5 ') THENR1 - 1 
1 080 IF RI - 1 THENM7-M7+1:GOTO 1100 
1 090 IF (M 6 1)* (K0$ Y) THENM7-M7+ 1 
1100 IF M7-71 THENRESTORE 6680:GOTO 1020 
1110 IF M7-80 THENRESTORE 6730:GOTO 1020 
1120 IF K 0 S ’ '' N " GOTO 1140 
1130 IF M2 1 THENFSADS 
1140 IF M3-1 THENF$-AE$ 

1150 IF M 7 - 7 7 THENFS-AAS 
1160 IF M 7 - 78 THENFS-AB$ 

1170 IF M 7 - 7 9 THENFS-ACS 

1180 IF M 7 - 6 9 THENFS-AFS 

1190 IF M7-70 THENFS-AGS 

1 200 GOSUB 1 30 0: IF M7->70 GOTO 1230 

1210 IF((M7->72)* (M7-<75)) + (M7 = 82) THEN 1230 

1 220 USR ($0F 1 4) 

1230 NEXT Y,X 

1240 REM ******** G.RAM ) *')1) 1 ******* 

1250 M-M+l 

1 260 IFM-2THENGRAPH I 2.C,02:P- 288:M2-1 
1 270 I FM - 3THENGRAPH I 3, C, 03: P- 288M3- I : M6 - 1 
1280 GOTO 890 

1 2 90 REM ***** A-f > ( 1 300- 1 680) ***** 

1 300 IF (SHS- Y )* (KAS-”M”) THEN 1410 
1310 IF KA$-"N“ THENUSR ($0511) :GOTO 1410 
1320 B-8:IF KO$-"N" THENB-16 
1 330 K- I NT (X/B) :T-I NT(Y/8) 

1 34 0 F-LEN (F S) : CURSOR K,T+1:IF KO$-"N" COTO 1360 

1 350 IF F->3 THENCURSOR K-I,T+1:GOTO 1390 

1 360 IF F-2 THENCURSOR K-l.T+1 

1370 IF F-3 THENCURSOR K-2.T+1 

1380 IF F-4 THENCURSOR K-3.T+1 

1390 PRINT FS 

1 4 0 0 USR ($051 1) 

1410 PRINTCHRS (6) :IF (M3-1)* (KOS«"N") THENRESTORE 5930 :GOTO 1480 
1 4 20 REM ******* G. ti'j l>'yy y7Kfa7tY ******* 

1 430 IF M2 - 1 THENAS-A4$:FOR N-l TO 110:NEXT:IF KO$-"Y" THENRESTORE 5050 
1 44 0 IF (M2-1)* (DH$-"Y") THENFOR N-l TO 32:A-ASC (MID$ (A4S,N,N)) :GOSUB 2130:NEXT 
N:GOSUB 2380 
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TO 
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TO 
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TO 
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TO 


1 TO 32:A-ASC(MIDS(A2$,N,N)) :GOSUB 


:A-ASC(MID$(A3$,N,N)):GOSUB 


2130:NEXT 

2130:NEXT 

2130:NEXT 

2130:NEXT 

2 1 30:NEXT 

2 1 3 0:N EXT 


1 4 50 REM ******* G. 3y> \y*j 9 9 b* fa7tY ******* 

1460 IF M3-1 THENA$-A5$:FOR N-l TO 110:NEXT:RESTORE 6010 
1 4 70 IF (M3- 1)* (DHS-* Y ") THENFOR N-l TO 32:A-ASC (MID$ (A 5 $,N,N)) :GO SUB 
N:GO SUB 2380 

1 4 80 IF M 7 - 6 9 THENAS-A8$:REM a 

1 4 90 IF (M7-69)* (DHS-’Y*) THENFOR N-l TO 32:A-ASC (MID$ (A8$,N,N)) :GOSUB 
N : GOSUB 2380 

1500 IF M7-70 THENAS-A9$:REM 5 

1510 IF (M7-70)* (DHS-'Y') THENFOR N-l TO 32:A-ASC (MID$ (A9S,N,N)):GOSUB 
N : G 0 S U B 2380 

1 52 0 IF M 7 - 7 7 THENAS-A 1$:REM 

1 530 IF (M7-77)* (DHS-'Y’) THENFOR N-l TO 32:A-ASC (MID$ (A 1 S,N,N)) :GOSUB 
N : GOSUB 2380 

1 54 0 IF M 7 - 7 8 THENAS-A2S:REM 7 
1 550 IF (M7-78)* (DH$-"Y") THENFOR 
N:GOSUB 2380 

1 56 0 IF M 7 - 7 9 THENAS-A 3$:REM i 
1 570 IF (M7.-79) * (DHS-'Y") THENFOR 
N:GOSUB 2380 
1580 POSITION X,Y:PATTERN-16,AS:AS-"' 

1 583 IF (DHS-“Y“)* ( (M7-68) + (M7-76)) THEN 1680 

1 585 IF (KO$-"N")* (DHS-'Y') THEN GRAPH 01:G0T0 1630 

1 590 IF (DHS-'Y")* (M-0) THENGRAPH 01 

1 600 IF (DHS-'Y')* (M-1) THENGRAPH 01 

1610 IF (DHS-'Y")* (M-2) THENGRAPH 02 

1615 IF (DHS-"Y")* ( (M7-68) + (M7-76)) THEN 1680 

1 6 20 IF (DHS-'Y") * (11-3) THENGRAPH 03 

1 630 IF ( (M7->72)* (M7-<75)) + (M7-82) THENUSR ($0F14) 

1 64 0 M2-0:M3-0:IF (M-0)♦ (Y-180)* (SHS-"Y”)THENUSR (S0F14) 

1650 IF SHS-"N" THEN 1680 
1 660 GET C $: IF C$=" THEN 1660 
1670 IF DHS-'Y" THENGRAPH 00 
1680 RETURN 

1 690 REM ******* k 9 7v' v*7»js7 a'7 >» ') ********* 

1 700 PRINTCHRS (6) .'GRAPH O0:CONSOLE C40 

1705 CURSOR 5,6:PRINT"377h K7v77i? (INPUT No)" 

1710 CURS OR 6,8:PRINT"*7YfK *>'72:?.1" 

1 72 0 CURS0R6, 1 0 : PR I NT'* 7-m' 2y7i?7.2" 

1 7 30 CURS0R6, 1 2 : PR I NT" 17-f 3 y>i7.3" 

1 740 CURS0R6, 14:PR I NT"t'>7'>7 JL* _4" 

1750 CURS0R6,16:PRINT"> 75 VJtxz .5" 

1 760 CURS0R6, 1 8 : PR I NT" > 75 ta 7>' a*. . . 6 “ 

1 7 70 CURS0R6,20:PRINT"7' -7FA_7" 

1 780 CURS0R6, 22 : PR I NT ' 479.8" 

1 790 GET SN : IFSN-0 THEN 1790 
1 800 PR INTCHRS (6) 

1810 ON SN GOTO 330, 1930, 1950, 1830, 2050, 2090. 1970, 2030 

1 820 IF S N > 8 THENCURSOR 6,9:PRI NT"*7Y* b ' n'va'7? n-999'14 :USR ($05 1 7) :GOTO 1700 
1825 REM ********** ********** 

1830 CURS0R5,9:PRINT"*-7 tiY 7 *'7 ** t'tx" 

1840 GETBS:IFBS- ‘ THEN 1840 
1 850 PRINTCHRS (6) : GRAPH 01 
I860 GETBS:IFBS-"' THEN 1860 
1870 IF KOS-'N" GOTO 1920 
1880 GRAPH 02 

1890 GETBS:IFBS-"" THEN 1898 
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1900 GRAPH 03 

1910 GETB$:IFB$-"" THEN 1910 
1 920 GRAPH 00:GOTO 1700 

1 925 REM ********* fh # 2 rjtrf *********** 

1 930 IF K0$- -N” GOTO 1950 

1 940 M * 1:RESTORE 50 50 :M7 - 0:M6 - 0:AS-”":GOTO 1250 
1 9 4 5 REM ********** 3y>*5 *********** 

1950 IF K0$“"R" THENAS-"’:GOTO 1700 

I960 M-2:RESTORE 6010:M7=0:A$-"“:GOTO 1250 

1 96 5 REM ******** 7* at*-? M *********** 

1 970 CURSOR!, 9:PRIRT"7- -J79-7 aY*J?>77 *-* * >999' H-T 

1 980 GET P$: IF PS-"" THEN 1970 

1 998 PRINTCHRS (6) : : CURSOR 1, 9 : PR I NT" 77'■/? at’ - S? * 9 *X. >*' 99 1if99*U.~ 

2000 IF KOS-“N’ THENPRINT/PCHRS(20) 

2010 COPY/P 2:IF K0$'"N" GOTO 1700 

2020 C0PY/P3:C0PY/P5:G0T0 1700 

2025 REM ******** t 7 'i ************ 

2030 POKE$0F17,30:POKE$0F1A,60:POKE$0015,255 
2040 END 

2045 REM ******** 7? 91tXX *********** 

2050 M6-1 :M7-60:RESTORE 6600 
2060 GRAPH I 3,C,0 3:P'17 0:A $ = “ 

2070 IF KOS-’N' THENP-P*2:CONSOLE C80:GRAPH Il,C,Ol 
2080 SG- 1 : GOTO 870 

2085 REM ******** 7? ts9&’3l* *********** 

2090 IF SG<> 1 THEN 2050 

2095 IF KOS-’N’ THEN GRAPH OUGOTO 2110 

2100 CRAPH 03 

2110 GET SG$: IF SG$-“" THEN 2110 
2120 GOTO 1700 

2125 REM ******* v** s 7*j>'7 fcaft-f> ********** 

2130 IF (M7-68)t (M7-76) THEN MZ-1 :RETURN 
2150 CG-I NT (A/2)*2 
2160 CA-A-CG 
2170 CE-A 

2180 IF CE->128 THENBG$-BG$+CHR$(30):CE-CE-128:GOTO 2200 
2190 BGS-BGS+CHRS (32) 

2200 IF CE->6 4 THENBGS-BGS + CHR$ (30) :CE-CE-64:GOTO 2220 
2210 BGS-BGS+CHRS (32) 

2220 IF CE->32 THENBGS-BGS+CHRS(30):CE-CE-32:GOTO 2240 
2230 BGS-BGS + CHRS (32) 

2240 IF CE->16 THENBGS-BGS+CHRS(30) :CE-CE- 1 6:GOTO 2260 
2250 BGS-BGS+CHRS (32) 

2260 IF CE->8 THENBGS-BGS+CHRS (30) :CE-CE - 8 : GOTO 2280 
2270 BGS-BGS + CHRS (32) 

2280 IF CE->4 THENBGS-BGS+CHRS (30) :CE-CE-4:GOTO 2300 
2290 BGS-BGS+CHRS (32) 

2300 IF CE - > 2 THENBGS-BGS+CHRS (30) :CE-CE-2:GOTO 2320 
2310 BG$-BG$+CHR$ (32) 

2320 IF CA-1 THENBG$-BG$ + CHR$ (30) 

2330 CURSOR CX,CY 
2340 PRINT BG$:BG$-"" 

2350 CY-CY+1 

2360 IF N- 16 THENCX-CX + 8:CY-CY-16 
2370 RETURN 
2375 REM 

2380 IF (MZ-1)* (KOS-"N“) THEN GRAPH 01:GOTO 2385 
2383 IF MZ-1 THEN GRAPH 03 
2385 GET C$:IF C$-"" THEN 2385 

2390 PRINTCHRS (6) : CX-1 2:CY-5 : MZ-0:IF KOS-"N" THEN CX-32 
2395 GRAPH 00 
2400 RETURN 

4 000 DATA 1,2,4,15,8, 15,8,15,8,63,0,0,1,2.4,24,0,0,0,240,16,240,16,240,20,248,8 
0, 144,16,16,112, 16, 

4010 DATA 1,1,127,68,82,20,37,3,61,1,31,17,31,1,63,0,0,0,252,68,84,136,20,240,0 
,0,240,16,240,8,244,4,? 

4 0 20 DATA 8, 127,8,124,69,68,72,83,74,70, 102,90,68,72,81,0,32,252,32,32,252, 136, 
80,252,0, 160,248,32, 112,32,252,0,7 

4030 DATA 32, 17,9,65,37,21, 10,116,2,2,255,4,8,7,0,15,16,252,1 8, 252,68,40,16,238 
, 0 , 0, 254 , 32, 32, 1 92 , 64 , 1 84,7 

4 04 0 DATA 56, 1,254,0,56,0,56,0,124,68,68,68,68, 124,68,64,0,254,4,4,244, 148, 148, 
1 48, 1 48, 1 48, 244, 20, 4, 4, 28, 4,3 

4050 DATA 0,64,32,19,2,130,67,34,10,10,10,18,36,72,147,0,0,64,64,252,68,68,248, 
136,136,136,80,32,80,136,4,0,a 

4060 DATA 63,36,36,63,8,80,34,21, 10, 18,126,17,84,84,84, 16,248,72,72,248,40,80,2 
52, 144, 144,248, 144,144,248, 144, 144,252,9 
4070 DATA 0,63,36,63,46,53,36,32,39,32,39,32,47,64, 128, 3, 128,254,16, 124,56,84,1 
6,0,240, 128,248, 128,252, 128, 12 8, 0,7 

4080 DATA 8,8,16,62,34,42,42,35,126,162,42,42,42,34,70,130,0,124,68,68,68,134,0 
, 2, 1 2 4, 1 6 4, 36, 3 6, 4 0, 1 6, 4 0, 1 98, 

4090 DATA 8,8,127,8,8,1,127,8,16,32,95,144,16,16,31,16,16,16,254,144,144,0,254, 
0, 0, 0, 248, 8, 8, 8, 248, 8,at 

4 100 DATA 0,64,32,19,2,130,67,34, 10, 10, 10, 18,36,72,147,0,0,64,64,252,68,68,248, 
136, 136, 136,80, 32,80, 136,4, 0,* 

4110 DATA 63,36,36,63,8,80,34,21,10,18,126,17,84,84,84,16,248,72,72,248,40,80,2 
52, 144, 144,248, 144, 144,248, 144, 144,252,7 
4120 DATA 1,1,127,68,82,20,37,3,61,1,31,17,31,1,63,0,0,0,252,68,84,136,20,240,0 
,0,240,16,240,8,244,4,? 

4 130 DATA 31, 17,17,21, 101,1,2,4,248,0,15,0,0,0,63,0,0,0,0,124,68,68,68,68,68, 14 
8, 20, 4,8, 1 6, 224, 0,7 

4140 DATA 2, 1,0,4,4,4,36,36,68, 132,4,4,2,1,0,0,0,0,128,0,16,8,4,2,0,0,0,8,8, 16, 
224,0, 

4150 DATA 5,8,80, 32,20,8, 16,37, 126, 17, 16,84,84,84, 16, 17,252, 132,72,80,32,32,80, 
140,0,32,32,248,32,32,32,252, 

4 160 DATA 32,32,62,72, 136, 127,36,72, 190,40,60,40,60,40,62,35,248, 136,136,248 
,136, 136,248,136, 1 36,248,80,80,80,82,146, 12 
4170 DATA >’,0,1,2,63,32,32,32,63,32,32,32,63,32,32,32,63,128,0,0,248,8,8,8,248 
, 8, 8, 8, 248, 8, 8, 8, 248 

4180 DATA t'Y,1,1,2,127,4,4,8,16,40,72,8,8,8,8,8,9,0,0,0,252,0,32,32,32,248,32, 
32,32,32,32,32,252 

4190 DATA £',8,8, 127,9,9,63, 16,8,4, 255, 0, 31, 16, 16, 16, 31, 32,32,252, 32,32,24 8’, 16, 
32,64,254,0,240, 16, 16, 16,240 

4 20 0 DATA *7, 8, 127, 8, 124, 69, 68, 72, 83, 74, 70, 102, 90, 68, 72,81, 0,32, 252, 32, 32, 252,1 
36,80,252,8, 160,248, 32,112,32,252,0 
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4210 DATA ^'*^,4,8,16,32,4,8,19,32,80,144,16,16,16,16,16,16,0,0,248,0,0,0,254,3 
2 32 32 32 32 32 32 224,32 

4 2 20 DATA*>*>,0[71*37,21,2, 132,64,32,7, 16, 17, 17, 17,34,68,0,0,252,20,20, 16,76,64 
,64,252,64,80,80,80,72,68,64 

4 2 30 DATA n>,8,8,16,62,34,42,42,35,126,162,42,42,42,34,70, 130,0,124,68,68,68, 13 
4,0,2, 124, 164,36,36,40, 16,40, 198 

4240 DATA 8 , 8 , 127, 8 , 8 , 1,127,8, 16, 32, 95, 144, 16, 16, 31, 16, 16, 16, 254, 144, 144, 0,2 
54,0,0,0,248,8,8,8,248,8 

4 250 DATA a,0,64,32, 19,2,130,67,34, 10, 10, 10, 18,36,72, 147,0,0,64,64,252,68,68,24 
8,136,136,136,80,32,80, 136,4,0 

4260 DATA 5,63,36,36,63,8,80,34,21,10,18,126,17,84,84,84,16,248,72,72,248,40,80 
,252, 144, 144,248,144, 144,248, 144, 144,252 

4270 DATA ?,1,1,127,68,82,20,37,3,61,1,31,17,31,1,63,0,0,0,252,68,84,136,28,240 
, 0 , 0, 24 0, 1 6 , 24 0,8, 24 4 ,4 

4280 DATA ?, 31, 17, 17,21, 101, 1,2,4,248,0, 15,0,0,0,63,0,0,0,0, 124,68,68,68,68,68, 

1 48, 20, 4,8, 1 6 , 224,0 

4290 DATA >' , 0 , 0 , 1 2 1 , 72, 72, 7 5. 1 20 , 72, 7 3. 7 2 , 1 20 . 64 , 0 . 0 , 0 , 0 , 32, 32, 2 52, 32, 32, 2 5 4 ,8 
,8,252,8,8,136,72,8,56,8 

4300 DATA >*•>,8,125,68,68,68,68,125,68,69.69,69,125,1,40.68,130,0,252,68,68,68, 
156,4,0,252,4,4,4,252,136,68,36 

4310 DATA > >, 31, 16, 16,31, 16, 16,31, 16, 16,31,4,4,4,8, 16,96,240, 16, 16,240, 16, 16,24 
0,16,16,240,64,64,64,66,34,28 

4 3 20 DATA 3 ',0,63,2,2,2,4,4,31,8, 8 , 8 , 16, 16,16,16,127,0,240,0,0,0,0,0,224,32,32, 
32, 32, 1 6 , 1 6 , 1 6 , 252 

4330 DATA ->>,8,8,127,8,9,81,41, 17,37, 124,19, 18,90,90, 18,23,32,32,252.‘32,240,48, 
80, 176,240,0,248,168, 168, 168, 168,252 

4 34 0 DATA if,33,33,60,33,33,36, 121 , 129,2,31, 16, 16,31, 16, 16,31,4,8,240,0,0,132,1 
20,0,0,240,16,16,240,16,16,240 

4350 DATA >*>, 1,1, 127, 64, 68 , 68 , 8 , 48, 0,15, 1,1, 1,1, 127, 0,0, 0,252, 4, 68 , 68 , 72, 48, 0,2 
24,0,0,0,0,252,0 

4360 DATA h',0,0,63,34,39,34,35,32,39,34,34,34,33,32,65,142,128,128,252,32,240, 
32,224,0,240, 16, 16,32,64, 128,64,56 

4370 DATA in, 0,0,0,0,0,0,0,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,254,0,0,0,0,0,0,0, 

0 

4 380 DATA 0,1,16,16,127,16,16,16, 16, 16,20.56,64, 1,2,0,0,252,68,6 8 , 68 , 68 , 68,6 
8 , 68 , 68 , 68 , 68 , 1 32,20, 8 ,0 

4 39 0 DATA >,8,8,255,9,9, 1,127, 1,1,1,31, 16, 16, 16,31, 16,32,32,254,32,32,0,252,0,0 
, 0, 248, 8 , 8 , 8 , 248,8 

4 4 00 DATA 0,0,63,32,39,36,36,36,36,36,36,36,36,36,66, 129,0,0,252,0,240, 16,16 
, 1 6,80, 32, 0, 0, 0, 8 , 1 6 , 224 

44 10 DATA •>, 1 , 2, 4, 9, 1 7, 39,6 5, 129, 6 3, 0, 0, 15, 8 , 8 , 1 5, 8 , 0, 128, 64, 32, 1 6 , 200, 4, 2, 248 
,0,0,224,32,32,224,32 

4 4 20 DATA 0,2, 28, 40,8, 8 , 127, 42, 42, 42, 41, 40, 72,8, 8 , 8 , 4, 4, 4, 4, 36, 36, 36, 36, 36, 36 
, 36, 4, 4, 4, 28,4 

4430 DATA >,0,31, 0,0,0, 0,1, 1,127, 1,1, 1,1, 1,7, 1,0, 224, 16, 32, 64, 128, 0,0, 252, 0,0,0 

'4440 DATA >*, 1, 1,6, 24, 96, 63, 33, 33, 33, 6 3, 32, 32, 32, 32, 16, 15, 0, 224, 16, 32, 64, 248, 8, 

8,8,248,0,0,0,4,4,248 

4450 DATA 7 ,0,127,0,1,2,5,9, 17,33,65,1,1,1,1,1,1,0,252, 128,0,0,32,16,8,4,4,0,0, 

4460* DATA i, 0, 63, 33, 63, 33, 63, 4, 4, 127, 4,4, 255,8,8, 16, 32, 0,248, 8 , 248,8, 248, 32, 32, 
252,32,32,254,32,16,8,8 

4470 DATA >*>, 1 , 1 , 127,64,68,68,8,48,0,15,1,1, 1,1,127,0,0,0,252,4,68,68,72,48,0,2 
24,0,0,0,0,252,0 

4480 DATA >->,1,1,127,64,68,68,8,48,0,15,1,1,1,1,127,0,0,0,252,4,68,68,72,48,0,2 
24, 0 ,0,0,0,252,0 

4490 DATA 7 , 0,127, 0,1, 2, 5, 9, 17, 33, 65, 1,1, 1,1, 1,1, 0,252, 128, 0,0, 32, 16, 8 , 4, 4, 0,0, 

45 * 00 ’ DATA i, 0,63, 33, 63, 33, 63, 4, 4, 127, 4, 4, 255, 8, 8, 16, 32, 0,248,8, 248, 8, 248, 32, 32, 

252, 32, 32, 254, 32, 1 6 , 8,8 

4510 DATA >*, 1, 1, 6 , 24, 96, 63, 33, 33, 33, 63, 32, 32, 32, 32, 16, 15, 0, 224, 16, 32, 64, 248, 8 , 
8,8,248,0,0,0,4,4,248 

45 20 DATA >*, 1,1, 6 , 24, 96,6 3, 33, 33, 33, 6 3, 32, 32,32, 32, 16, 15, 0,224, 16, 32, 64, 248, 8 , 
8,8,248,0,0,0,4,4,248 

4 5 30 DATA >>, 0, 124,68,68, 124,68,68,124,64,72,68,74,80,96,64,0,0,252, 132, 132, 132 
, 132, 132, 132, 132, 148, 136, 128, 128, 128, 128,0 

4540 DATA t', 0,15,8, 15, 8 , 15, 0,255, 9, 9, 9, 17, 41, 69, 131, 0,0, 224, 32, 224, 32, 224, 0,25 
4,0,0,224,0,0,0,254,0 

4550 DATA >*>,1,1, 127, 64, 68 , 68 , 8 , 48, 0,15, 1,1, 1,1, 127, 0,0, 0,252, 4, 68 , 68 , 72, 48, 0,2 
24 0 0 0 0 252 0 

4 56 0 DATA* >*>, 1 , 1 , 127, 64, 68 , 68 , 8 , 48, 0,15, 1 , 1 , 1 , 1 , 127, 0 , 0 , 0 , 252, 4, 68 , 68 , 72, 48, 0,2 
24,0,0,0,0,252,0 

4570 DATA >>,0,124, 68 , 68 , 124, 68 , 68 , 124, 64, 72, 68 , 74,80, 96, 64, 0,0, 252, 132, 132, 132 
,132,132, 132, 132,148,1 36, 128,1 28, 1 28,128,0 

4580 DATA t',0,15,8,15,8,15,0,255,9,9,9,17,41,69,131,0,0,224,32,224,32,224,0,25 
4,0,0,224,0,0,0,254,0 

4590 DATA **,1,1,6,24,96,63,33,33,33,63,32,32,32,32,16,15,0,224,16,32,64,248,8, 
8,8,248,0,0,0,4,4,248 

4600 DATA >' a ,0,0,31,41,4,127,64,95, 16,8,4,2,1,2,60,0,8, 16,232, 16, 160,252,4,244 
, 1 6 , 32, 64, 1 28, 0, 128, 1 20,0 

4610 DATA >*>,0,8,126,8,42,42,40,72,2,1,4,20,36,66,1,0,0,252,132,252,132,252,132 
, 252, 0, 0, 1 6 , 1 2, 0, 8 , 240, 0 

4 62 0 DATA *'*•>, 4, 8 , 16, 32, 4, 8 , 19, 32, 80, 144, 16, 16, 16, 16, 16, 16, 0,0, 248, 0,0, 0,254, 3 

2 46 30 3 DATA* **) 0?*49?7?12*2?2, 50, 7, 48, 3, 1 2 2, 7 4, 7 5, 7 4,74, 123, 0, 0, 32, 232, 164, 16 0, 160, 
252,32,164,164,164,168,144,168,196,0 

4640 DATA f>,0,1,1,127,4,4,4,20,20,36,68,4,8,16,97,0,0,0,0,252,64,64,64,80,72,6 
8 , 68,64, 64, 64, 1 28,0 

4 650 DATA >*,0,9,17,34, 1,9, 17,33,81, 16, 16, 16,23, 16,23,0,0,0,252,0,248,8,248,8,2 
48,0,248,136,80,32,220,0 

46 6 0 DATA z 3 , 0 , 8 , 16,32, 126,34,34,34,34,34,34,20,8,20,98,0,0,0,252, 132, 132, 132,1 
32,132,132,132,132,132,132,252,132,0 

4670 DATA t', 0,15, 8 , 15,8, 15, 0,255, 9, 9, 9, 17, 41, 69, 131, 0,0, 224, 32, 224, 32, 224, 0,25 
4,0,0,224,0,0,0,254,0 

4680 DATA >*,1,2,4,9,17,39,65,129,63,0,0,15,8,8,15,8,0,128,64,32,16,208,4,2,248 
,0,0,224,32,32,224,32 

4 690 DATA 0,2,28,40,8,8,127,42,42,42,41,40,72,8,8,8,4,4,4,4,36,36,36,36,36,36 
,36,4,4,4,28,4 

4700 DATA >,0,31,0,0,0,0,1,1, 127,1,1, 1 , 1 ,1,7, 1.0,224, 16, 32,64, 128,0,0,252,0,0,0 

*4*710 DATA t',0,15,8,15,8,15,0,255,9,9,9,17,41,69,131,0,0,224,32,224,32,224,0,25 
4,0,0,224,0,0,0,254,8 

4720 DATA >* , 0 , 48, 1,252, 0 , 51, 0,48, 1 , 1 23, 73, 73, 73, 73, 1 21, 73, 32, 34,252, 40, 48, 254, 
64,128,252,4,4,252,4,4,252.4 
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4730 DATA $ 9 , 0,64, 32, 19, 9, 0,128, 71, 41, 9, 9, 17,34, 71, 136, 0,0, 64, 64, 24 8 , 64, 64, 64, 2 
52, 0, 9, 0, 1 6 , 1 6 , 232, 4,9 

4740 DATA 99 , 1,1, 127, 64, 68 , 68 , 8 , 48, 0,15, 1,1, 1,1, 127, 0,0, 0,252, 4, 68 , 68 , 72, 48, 0,2 
24, 8 , 9, 0, 0, 252,0 

4 750 DATA 99 , 0, 8 , 8 , 8 , 1 2 6 , 4 0, 4 2,4 2, 4 2, 42, 72, 1 36,8, 8 , 8 , 0, 0, 0, 2 52, 1 32, 1 32, 1 32, 2 5 2, 
132, 132, 132,252,132,132, 132,252,0 

4 76 0 DATA 7 , 0,127, 0 , 1 , 2 . 5, 9. 17, 3 3, 65,1 ,_1 ,1,1,1,1, 0,252, 128, 0,0, 32,16, 8 , 4, 4, 0,0, 

8 4 7 7 0 'DATA i*9,0,33,33,33,63,65,129,1,1,31, 1,1,1,1,127,0,0,0,0,0,248,0,0,0,0,240 
, 0 , 0, 0, 0, 252, 0 

4 780 DATA 7, 0, 1 27, 0 , 1 , 2, 5, 9, 1 7, 33, 65, 1, 1 , 1 , 1 , 1 , 1 , 9, 252, 1 28, 0, 0, 32, 1 6 , 8 , 4,4, 0, 0, 

9 4798* DATA * 7 , 0, 0, 64, 39, 20, 7, 132, 70, 38, 4, 21, 22, 36, 72, 14 5, 0,0, 40, 36, 25 2, 32, 24 0, 1 6 

0,160,228, 164, 100,40, 16,40, 196,0 

4 800 DATA 7 , 0 . 12 7 , 0 , 1 , 2 , 5, 9, 17,33, 6 5, 1 , 1, 1, 1, 1 , 1, 0, 2 52, 128,.0, 8 , 32, 1 6 , 8 , 4, 4, 0, 0, 

0 4810*DATA 7 , 0, 32, 32, 35, 34, 25 0, 35, 34, 34, 34,34. 42, 1 16, 136, 16, 0, 4, 8 , 16, 224, 0, 0, 254 

,0,0,252, 132, 132,132, 132,252,132 

48 20 DATA 7 , 0,127, 0,1, 2, 5, 9, 17, 33, 65, 1,1, 1,1, 1,1, 0,252, 128, 0,0, 32, 16, 8 , 4, 4, 0,0, 

0 4830'DATA *9, 0, 64, 33, 18, 4, 1, 128, 64, 4 3, 8 , 8 , 17, 32, 64, 128, 9, 0, 248, 8 , 16, 32, 2 52, 36 

,36,254,36,36,252,32,32,160,64 

4840 DATA 7 , 0,127, 0,1, 2, 5, 9, 17, 33, 65, 1,1, 1,1, 1,1, 0,252, 128, 0,0, 32, 16, 8 , 4, 4, 9,0, 

8 4 850*DATA 7 ' 7 , 0 , 33 , 32 , 32, 35, 250, 35, 34, 35, 32, 33, 4 1 , 1 1 3, 1 29, 1 , 1, 0 , 4, 1 36, 80, 254, 34 

,254,34,254,0,252,4,252,4,252,4 

4 86 0 DATA 7 , 0,127, 9, 1,2, 5, 9, 17,33, 65, 1,1, 1,1, 1,1, 0,252, 128, 0,0, 32, 16,8, 4, 4, 0,0, 

8 4870'DATA *'>,8,0,64,47,8,11,136,72,11,42,42,43,74,144,32,0,0,40,40,252,32,168, 
32,32, 160, 164, 164, 168, 144,48,196,9 

4889 DATA t', 0, 1 5,8, 1 5,8, 1 5, 0, 255, 9, 9, 9, 1 7, 4 1 , 69, 1 3 1 , 0, 0 , 224, 32, 224, 32,224, 9, 25 
4,0,0,224,0,9,0,254,0 

48 9 0 DATA a,0, 16, 16,16,124,17,18, 16,124,68,68,68,124,0,3,0,0, 1 28,128,252,136,8, 
136,136,136, 136,80,32,89,136,4,0 

4 990 DATA 77 , 1 , 1 , 12 7, 6 4, 6 8 , 6 8 , 8 , 48, 0 , 1 5, 1 , 1 , 1 , 1 , 1 2 7, 8 , 0, 9, 2 5 2, 4, 68 , 68 , 72, 48, 0,2 
24 0 0 0 0 252 0 

4918 DATA' f,7* 0, 1 , 1 , 1 , 1 27, 65, 65, 65, 1 27, 1 , 1 , 1 , 1 , 1, 1 , 0, 0, 0, 0, 0, 252, 4, 4, 4,252, 0, 0, 
0 0 0 0 0 

49 20'DATA A,0,8,8,31,50,82,18,127,18, 18, 18, 127,48,6 8, 138,0,0,0,0,254,7 2, 72,72,2 
54,72,72,72,254,136,68,34,0 

4 9 30 DATA 1 f 1 , 6, 2 4, 98, 6 3, 33, 33, 33, 8 3, 32, 32, 32, 32, 18, 1 5, 0, 224, 18, 32, 64, 2 48, 8, 
8,8,248,0,8,0,4,4,248 

4948 DATA a,0,8,8,31,50,82,18,127,18,18,18,127,40,68,138,8,0,0,0,254;72,72,72,2 
54,72,72,72,254, 136,68,34,0 

4 950 DATA •>* ,, 0, 0,31, 41, 4, 127, 64, 95, 16, 8, 4, 2, 1, 2, 6 0, 0,8, 16, 232, 1 6, 1 60, 252, 4, 244 
, 1 6, 32, 64, 1 28, 0, 1 28, 1 20,0 

4 960 DATA 77, 0, 8, 1 26,8, 42, 42 , 40, 7 2, 2, 1 , 4, 20, 36, 66, 1 , 0, 0, 25 2, 1 32, 252, 1 32, 252, 1 3 2 
, 252, 0, 0, 1 6, 1 2, 0, 8, 240,0 

4979 DATA *7,4,8,16,32,4,8, 1 9, 32,80,144,16, 16, 16,16,16,16,8,0,24 8, 0,0,0,254,3 
2, 32, 32, 32, 32, 32, 32, 224, 32 

4980 DATA ,0,49,7,122,2,50,7,48,3,122,74,75,74,74,123,0,0,32,232,164,160,160, 
252,32,164, 164,164,168,144, 168, 196,8 

4990 DATA A, 0,8, 8, 31, 50,82, 18, 127, 18, 18, 18, 127, 40, 68, 139, 0,0,0, 0,254, 7 2, 72, 72,2 
54, 72, 72, 72, 254, 1 36, 68, 34,0 

5 000 DATA */'>,0,125,69,69,69,125,69,69,69, 125,69,69,69, 125,71,0,0,24 8, 8, 8,248,8 
,8,248,68,72,80,32,16,40,196,0 

5010 DATA a, 0,0, 255, 16, 16, 31, 16, 16, 31, 16, 16, 127, 0,0, 0,0, 0,8, 254, 32, 32, 224, 32, 32 
, 224, 32, 32, 252, 32, 32, 32,0 

50 2 0 DATA t', 1,31, 16, 31, 31, 16, 31 , 0,63, 33, 63, 33, 63, 8, 127,8,0,240, 16, 240, 24 0, 16,2 
40,0,248,8,248,8,248,32,252,32 

5 0 30 DATA t'7,0,0,15, 17,1,1, 127,1,1,1,31,16,16, 16,31,0,0,32,192,0,0,0,252,0,0,0 
, 240, 1 6, 1 6, 1 6, 2 40 ,0 

504 0 DATA >>, 1,2, 4, 15,8, 15,8, 1 5, 8, 6 3, 0,0, 1,2, 4, 24, 0.0, 0,240, 16, 240, 16, 240, 20, 24 
8,80, 144, 16, 1 6, 1 1 2, 16 

5050 DATA 1,31,8,4,127,0,31,16,31, 16,31,0,41,40,72,7,0,240,32,64,252,0,240, 16 
, 240, 1 6, 240, 8, 4, 1 32, 1 6, 224 

5 06 0 DATA A,0,8,8,31,50,82,18, 127, 18, 18,18,127,40,68,130,0,0,0,0,254,72,72,72,2 
54,72,72,72,254,136,68,34,0 

58 7 0 DATA >*, 1,1, 6, 24, 96, 63, 33, 33, 3 3, 63, 32, 32, 32, 32, 16, 15, 0,224, 16, 32, 64, 248, 8, 
8, 8, 248, 0, 0, 0, 4, 4, 248 

5080 DATA ; 3 9,1,1,255,1,127,0,63,33,33,63,32,32,32,32,64,128,0,0,254,0,252,0,24 
8, 8, 8, 248, 0, 0, 0, 0, 0, 0 

5090 DATA 39 , 0 , 0 , 15,17,1, 127,5,9,17,33,95,16,31, 16,31,0,0,16,224,0,0,252,64,32, 
1 6 , 8 , 244 , 1 6 , 24 0, 1 6 , 24 0,0 

5100 DATA 5, 0,0, 120, 75, 72, 72, 72, 79, 7 3, 73, 121, 74, 4, 0,0, 0,0, 64, 64, 2 4\.8, 64, 64, 64, 25 
2,80,80,80,72,68,64,64,0 

5110 DATA JO, 0,60, 36, 72, 62, 42, 42, 62,42, 42, 62, 34, 34, 42, 68, 0,0, 32, 32, 32, 252, 164,1 
64,164,252,32,32,36,44,116,132,0 

5120 DATA $9,0,64,32, 19,0,0, 128,71,41,9,9, 17,34,71, 136,0,0,64,64,248,64,64,64,2 
52, 0, 0, 0, 1 6, 1 6, 232, 4,0 

5130 DATA A,0,8,8,31,50,82, 18, 127,18, 18,18, 127,40,68, 130,0,0,0,0,254,72,72,72,2 
54,72,72,72,254,136,68,34,0 

5140 DATA **>,0,125,69,69,69,125,69,69,69,125,69,69,69,125,71,0,0,248,8,8,248,8 
,8,248,68,72,80,32,16,40,196,0 

5150 DATA Hi, 0,31, 17, 31, 17, 31, 2, 4, 8, 16, 104,8,8, 16, 32, 0,0, 240, 16, 240, 16, 240, 128, 
64, 32, 1 6, 44, 32, 32, 32, 32, 0 

5160 DATA U. 0,0,31,2,2,2,2,2,2,2,2,2,4,8,112,0,0,0,224,32,32,32,32,60,36,4,4,4 
,4,68,56,0 

5170 DATA 0, 127,4,4,4,8, 63,32, 1, 1,31, 1, 1, 1, 127,0, 0,252,64,64, 64,32,240,8,0,0, 
240,0,0,0,252,0 

5180 DATA A,0,8,8,31,50,82, 18, 127, 18, 18, 1 8, 127,40,6 8, 130,0,0.0,0,254,72,72,7 2,2 
54,72,72,72,254,136,68,34,0 

5190 DATA Y, 1,31,8,4,127,0,31, 16,31, 16,31,0,41,40,72,7,0,240,32,64,252,0,240,16 
, 240, 1 6, 240, 8, 4 , 1 32, 1 6, 224 

5200 DATA >*,0,49,7,122,2,50,7,48,3,122,74,75,74,74,123,0,0,32,232,164,160,160, 
252,32,164,164,164,168,144,168,196,0 

5210 DATA U4, 0,31, 17, 31, 17, 31, 2, 4,8, 16, 104, 8,8, 16, 32, 0,0, 240, 16, 240, 16, 240, 128, 
64,32,16,44,32,32,32,32,0 

5220 DATA a,0,8,8,31,50,82,18,127,18,18,18,127,40,68,130,0,0,0,0,254,72,72,72,2 
54, 72, 72, 72, 254, 1 36, 68, 34,0 

5230 DATA A,0,8,8,31,50,82,18,127,18,18,18,127,40,68,130,0,8,0,0,254,72,72,72,2 
54, 72, 72, 72, 254, 1 36, 68, 34,0 

5 24 8 DATA 5,9, 0,0,124,68,68, 124,68,68, 124,0,0,0, 1,2,12,0,0,252, 132, 1 32,132,252, 
13 2, 132,252, 132, 132, 1 32,4,36,24,0 
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5250 DATA t9, 0,1, 1,127, 4, 4,4, 20, 20, 36, 68, 4, 8, 16,97,0, 0,0, 0,252,64, 64, 64, 80, 72. 6 
8,68,64,64,64,128,0 

5260 DATA a, 0,8, 8, 31, 50,82, 18, 127, 18, 18, 1 8, 127,40,68,138,0,0,0,0,254,72,72,72,2 
54,72, 72, 72, 254 , 1 36, 68, 34,0 

5270 DATA A, 0,8,8,31,50,82,18,127,18,>8,18,127,40,68,130,0,0,0,0,254,72,72,72,2 
54, 72, 72, 72, 254, 1 36, 68, 34,0 

5 28 0 DATA ?j*>, 0.0, 124, 68, 68,124, 68, 68, 124, 0,0, 0,1, 2, 12, 0,0, 252, 132, 132, 132, 252, 
132,132,252,132,132,132,4,36,24,0 

5 29 0 DATA >'>,0,31, 16, 16, 31, 16, 16, 18, 17, 16, 16, 16, 17, 32, 64, 0,0, 240, 16, 16, 240, 32, 

32.32.32, 160,32, 16,8, 134,64,0 

5300 DATA U, 0,0,31,2,2,2,2,2,2,2,2,2,4,8,112,0,0,0,224,32,32,32,32,60,36,4,4,4 
,4,68,56,8 

5310 DATA >,0,127,4,4,4,8,63,32,1,1,31,1,1,1,127,0,0,252,64,64,64,32,240,8,0,0, 
24 0, 0, 0', 0, 252,0 

5320 DATA A,0,8,8,31,50,82,18, 127,18,18, 18,127,40,68,130,0,0,0,0,254,72,72,72,2 
54 , 72, 72, 72, 254, 1 36, 68, 34,0 

5 33 0 DATA B9, 1,1, 31, 1,1, 127, 1,2, 4,8, 20, 103, 4, 4, 4, 3, 0,8, 240,32, 64, 252, 0,8, 16, 32, 
64 , 1 28, 0, 4, 4, 248 

5 34 0 DATA >, 0,127, 16, 16, 30, 18, 18, 26, 22, 18, 34, 68,8, 16, 96, 0,0, 252, 128, 128, 132, 136 
,144,224, 128,128, 128, 128, 132, 132,120,0 

5350 DATA t9,0.1,1,127,4,4,4,20,20,36,68,4,8,16,97,0,0,0,0,252,64,64,64,80,72,6 
8,68,64,64,64,128,0 

5 36 0 DATA A,0,8,8,31,50,82, 18, 127,18, 18, 18, 127,40,68,130,0,0,0,0,254,72,72,72,2 
54,72,72,72,254,136,68,34,0 

5370 DATA u»>, 1,1, 31,1,1, 127,1,2, 4,8, 20,103, 4, 4, 4, 3. 0,8, 240, 32, 64, 252, 0,8, 16, 32, 

6 4 , 1 28, 0, 4 , 4 , 248 

5380 DATA >,0,127, 16, 16, 30, 18, 18, 26, 22, 18,34, 68, 8, 16, 96,0, 0,252, 128, 128, 132, 136 
,144,224,128, 128,128, 128, 132,132, 120,0 v 

5 39 0 DATA >'>,0,31, 16, 16, 31, 16, 16, 18, 17, 16, 16, 16, 17, 32, 64, 0,0, 240, 16, 16, 240, 32,, 

32.32.32.160.32, 16, 8, 134,64,0 

5400 DATA A,0,8,8,31,50,82,18,127,18,18,18,127,40,68,130,0,0,0,0,254,72,72,72,2 
54,72,72,72,254,136,68,34,0 

5410 DATA 7,8,8,255,9,9,1,127, 1,1,1,31,16, 16, 16,31, 16,32,32,254,32,32,0,252,0,0 
, 0, 248, 8, 8, 8, 248,8 

5 4 20 DATA >»•>, 8, 16, 63, 97, 191, 33, 63, 33, 63, 1,127, 9, 9, 17, 3 3, 1,64, 128, 252, 0,248, 0,2 
48, 0, 252, 0, 252 , 32, 32, 1 6, 8,0 

5430 DATA *7,0,6, 64, 39, 20, 7, 132, 70, 38, 4, 21, 22, 36, 72, 145, 0,0, 40, 36, 252, 32, 240, 16 
0,160,228,164,100,40, 16,40,196,0 

5 4 4 0 DATA b'9, 1,64, 39, 16, 16, 3, 114, 19, 18, 19, 18, 19, 18, 40, 71, 0,8, 144, 252, 32, 64, 248 
,8,248,8,248,8,248,8,0,252,0 

5450 DATA A, 0,8, 8, 31, 50,82, 18, 127, 18, 18, 18,127,40,68,130,8,0,0,0,254,72,72,72,2 
54,72,72,72,254,136,68,34,0 

5460 DATA 16, 16,62,72, 126,8,20,34,95, 16, 16,31, 16, 16,31, 16,0,0,252, 132, 132, 132 
,252,1 32,240, 16, 16,240, 16,16,240, 16 

5470 DATA 9 9,0,1,1,127,4,4,4,20,20,36,68,4,8,16,97,0,0,0,0,252,64,64,64,88,72,6 
8, 68, 64, 64, 64, 1 28,0 

5 4 80 DATA A,0,8,8,31,50,82, 1 8, 127,18,18,18, 127,40,68,130,0,0,0,0,254,72,72,72,2 
54 , 72, 72, 72, 254, 1 36, 68, 34,0 

5490 DATA b9, 4, 9, 17, 33, 5, 9, 16, 35,80, 144, 17, 16, 16, 16, 16, 16, 0,252, 4, 252, 4, 252, 0,2 
54, 8, 8, 252, 8, 1 36, 72, 56,8 

5 50 0 DATA ■{, 9, 16, 18, 17, 16, 16, 16, 16, 16, 17, 18,20,56,64, 15,0,0, 16, 16, 16,144, 144, 16 
,16,16,16,16,32,88,132,2,0 

5510 DATA A,0,8,8,31,50,82,18,127,18,18,18,127,40,68,130,0,0,0.0,254,72,72,72,2 
54,72,72,72,254,136,68,34,0 

552 0 DATA >*, 0,0, 62. 0,62, 34, 62, 32, 32, 32, 32, 32, 33, 66, 132,0,0, 8, 112, 128, 128, 254,1 
44,144,144,144, 144,144, 16,16, 16,0 

5 5 30 DATA h9, 4, 9, 17, 33, 5, 9, 16, 35, 80, 144, 17, 16, 16, 16, 16, 16, 0,252, 4, 252, 4, 252, 0,2 
54,8,8,252,8,136,72,56,8 

5 54 0 DATA x, 0,16, 16, 16, 124, 1 7, 18, 16, 124, 68, 68, 68, 124, 8, 3, 0,0, 128, 128, 252, 136,8, 

1 3 6, 1 36, 1 36, 1 36, 8 0, 32,8 0, 1 3 6, 4,0 

5550 DATA 8, 8, 127, 9, 9, 63, 16,8, 4, 255, 0,31, 16, 16, 16, 31,32, 32, 252, 32,32, 248, 16, 
32,64,254,0,240,16,16,16,240 

5 56 0 DATA 9' 4, 0,0, 17, 125, 17, 17, 17, 20, 27, 48, 81, 17, 18, 21, 104, 16, 0,0, 252, 4, 252, 4, 2 
5 2, 0, 2 5 4, 32, 32, 6 0, 32, 32, 1 6 0, 1 26 

5570 DATA 9?,8,127,8,124,69,68,72,83,74,70,102,90,68,72,81,0,32,252,32,32,252,1 
36,80,252,0,160,248,32,112,32,252,0 

5580 DATA 9,0,16,16,16,124,17,16,16,17,16,20,57,64,0,1,8,0,8,112,160,32,252,168 
,168,252,168,168,252,32,32,252,0 

5590 DATA x,4,8,19,32,80,145,18,21,25,17,17,17,17,23,16,0,32,32,254,66,164,40,4 
8,32,32,32,32,16,8,228,2,0 

560 0 DATA a>,8,8, 16,62,34,42,42,35, 126,162,42,42,42,34,70, 130,0, 124,68.68,68, 13 
4,0, 2, 124, 164,36,36,40, 16,40, 198 

56 10 DATA xv, 8, 8, 1 2 7, 8, 8, 1 , 1 2 7,8, 1 6, 3 2, 9 5, 1 4 4, 1 6, 1 6, 31, 16, 16, 16, 2 5 4, 14 4, 1 4 4, 0,2 
54 000 248 888 248 8 

562 0 DATA a' 0*64,32,19,2,130,67,34,10,10,10,18, 36,72,147,0,0,64,64,252,68, 68,24 

8.136, 136,136,80,32,80,136,4,0 

56 30 DATA 9, 63, 36, 36, 63, 8, 80, 34, 21, 10, 18, 126, 17, 84, 84, 84, 16, 248, 72, 72,248, 40, 80 
,252,144, 144,248,144, 144,248, 144, 144,252 

56 4 0 DATA ?,1,1,127,68,82,20,37,3,61,1,31,17,31,1,63,0,0,0,252,68,84,136,20,240 
,0,8,240,16,240,8,244,4 

56 5 0 DATA 9,31, 17, 17,21, 101, 1,2,4,248,0, 15,0,0,0,63,0,0,0,0, 124,68,68.68,68,68, 

1 48, 20, 4, 8, 1 6, 224, 0 

5 66 0 DATA x, 0, 16, 16, 16, 124, 17, 18, 16, 124,68,68, 68, 124,0, 3,0, 0, 128, 128,252, 136,8, 
136, 136, 1 36,136,80,32,80, 136,4,0 

5 6 70 DATA *», 2, 1, 0, 4, 4, 4, 36, 36,68, 1 32, 4, 4, 2, 1, 0, 0, 0, 0, 1 28, 0, 1 6, 8, 4, 2, 0, 0, 0,8, 8, 
16,224,0 

5680 DATA i,0,8,8,31,50,82,18,127,18,18,18,127,40,68,130,0,0,6,0,254,72,72,72,2 
54,72,72,72,254,136,68,34,0 

56 9 0 DATA W, 12 7, 72, 72, 127, 1,1, 31, 1,1, 127, 1,1, 31, 1,1, 127, 252, 36, 36, 252, 0,0, 240, 
0,0,252,0,0,240,0,0,252 

5700 DATA 9', 0,2, 123, 34, 33, 34, 34, 67, 185,41,43, 41, 57, 42, 4,8, 0,190, 2, 84, 136, 4, 62, 
138,8,8,174,40,40,168,88,142 

5710 DATA A,0,8,8,31,50,82, 18, 127, 18, 18, 18, 127,40,68, 130,0,0,0,0,254,72,72,72,2 
54, 72, 72, 72, 254, 136, 68, 34,0 

57 20 DATA 9-f, 1 27, 7 2, 72, 127, 1,1, 31, 1,1, 127, 1,1, 31, 1,1, 12 7, 252, 36, 36, 252, 0,0, 240, 
0, 0, 252, 0, 0, 24 0, 0, 0, 2 5 2 

5 7 30 DATA 9', 0,2, 123, 34, 33, 34, 34, 67, 185, 41, 43, 41, 57, 42, 4, 8, 0,190, 2,84, 136, 4, 62, 

1 38,8,8, 174, 40, 40, 168, 88, 142 

57 4 0 DATA x,0,16, 16, 16, 124,17, 18, 16, 124,68,68,68, 124,0, 3, 0,0,128,128,252,136,8, 

136.136, 136, 136,80,32,80, 136,4,0 

57 5 0 DATA A, 0,8,8, 31, 50,82, 18, 127, 18, 18, - 18, 127, 40, 68, 130, 0,0, 0,0, 254, 72, 72, 72, 2 
54, 72, 72. 72, 254, 1 36, 68, 34,0 

576 0 DATA •>,0,0,1,127,2,4,11,16,40,79.8,8,15,8,8,8,12 8, 128,0,252,0,0,240,16,16, 
240, 1 6, 1 6, 240, 1 6, 1 6, 48 
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57 70 DATA ), 0, 125, 17, 17, 17, 21, 57,78, 0,9,8,40, 40, 72, 7, 0,0,240, 16, 80, 80, 16, 20, 12, 

0, 0, 1 44 , 1 36 , 4 , 20, 224 ,0 

5 78 0 DATA 7, 16, 16, 16, 19, 84,85, 82, 21, 25, 17, 17, 17, 17, 17, 16, 16, 16, 32, 64, 254, 160, 32 
,252,36,36,36,36,36,44,36,32,32 

5790 DATA 0,64,35,16,7, 112, 19,18,19,16,17,18,20,40,68,3,64,64,248,64,252,0,2 
48,8,248,196,104,80,72,68,64,252 

5800 DATA 8, 127, 54, 42, 54, 62,8, 127, 73, 81,85,93, 69, 65, 65, 65, 36, 40, 94, 136, 72, 72, 

124.72.72.72, 124,72,72,72, 126,64 

5810 DATA /v,0,0,0,0,0,0,0,127,0,0,0,0,0,0,0,0,0,0,0,0,0.0,0,254,0,0,0,0,0,0,6, 

0 

58 2 0 DATA 9Y, 0,1, 16, 16, 127, 16, 16, 16, 16, 16, 20,56, 64, 1,2, 0,0, 252, 68, 68, 68, 68, 68, 6 
8,68,68,68,68,132,20,8.0 

5830 DATA 9>,65, 126,65,62,0,94,82,94,82,94,82,94,82,127,36,66,254, 16,32,252, 132 
,132,252, 132, 132,252, 132,132,252,72,72, 132 

5840 DATA K 9. 4, 15, 17, 33, 66, 164, 39, 40. 33, 33, 39,33, 33, 33, 35, 36, 2, 226, 2, 18, 18, 146 
, 82, 82, 1 8, 1 8, 2 1 0, 2, 2, 66, 1 4 2,2 

5850 DATA 4,4,63,4,31,18,31,0,63,64,71,4,5.9,16,0,31,64,248,64,240,144,240,0,25 
2,2,226,32,32,32,64,128,0 

58 6 0 DATA :/■>, 0,8, 126,8, 42, 42, 40, 72, 2, 1,4, 20, 36, 66, 1,0,0, 252, 132, 252, 132, 252, 132 
,252,0,0,16,12,0,8,240,0 

58 7 0 DATA 7,1,1, 127,72,72,16,98,2,63,2,2,2,4,8,112,0,0,0,252,36,36,36,24,0,224, 

32, 32, 32, 36, 36, 24,0 

5 88 0 DATA 9, 1,63, 8, 4, 4, 255, 0,63, 32, 63, 32, 63, 8, 8, 16, 96, 0,248, 32, 64, 64, 254, 0,24 
8.8,248,8,248,32,36,36,24 

58 9 0 DATA *, 0,67, 34, 18, 3, 130, 66, 35, 0,0, 16, 23, 16, 32, 64, 143, 0,248, 8,8, 248, 8, 8, 248 
,64,64,64,252,64,64,64,254 

5900 DATA 8, 16,124,68,85,68,254,68,84,84, 140, 1,255,9,17,97,248, 136, 136, 138,4 
,0,252,68,40, 16,2 38, 0,254,32,16,12 

5910 DATA 9>,0,0,31,0,0,0,0,15,0,0,0,0,127,0,0,0,0,0,240,0,0,0,0,224,0,0,0,0,25 

5920* DATA t',0,17,17, 17,17,255, 17,17,17,17,17, 17, 17, 16,31,0,0, 16,16,16, 16,254,1 
6 , 1 6, 1 6, 1 6 , 2 4 0, 1 6, 0, 0 , 2 52,8 

5 9 30 DATA >j, 0,48, 1,252, 0,51, 0,48, 1,123, 73, 73, 73, 73, 121, 73, 32, 34, 252, 40, 48, 254, 

64, 1 28, 252, 4 , 4, 2 5 2, 4 , 4 , 2 52,4 

5940 DATA 7'?, 2, 4,8, 16, 32, 80, 144, 16, 16, 16, 16, 16, 17, 19, 20, 16, 64, 64, 64, 64, 64, 64,6 
4, 64, 64, 6 4 , 64 , 1 32, 4 , 2 52, 2, 1 

59 5 0 DATA i, 4,8, 19, 32,80, 145, 18, 21, 25, 17, 17, 17, 17, 23, 16, 0,32, 32, 254, 66, 164, 40,4 
8,32,32,32,32,16,8,228,2,0 

5960 DATA *>, 8, 8, 16, 62, 34, 42, 42, 35, 126, 162, 42, 42, 42, 34, 70, 130, 0,124, 68, 68, 68, 13 
4,0,2, 124, 164,36, 36,40, 16,40, 198 

5970 DATA -v, 8, 8, 127, 8, 8, 1,127,8, 16,32,95,144,16,16,31,16,16,16,254,144,144,0,2 
54, 0, 9, 0, 248, 8, 8, 8, 248,8 

5 98 0 DATA a,0,64, 32,19,2,130,67,34,10, 10, 10,18,36,72, 147,0,0,64,64,252,68,68,24 
8, 136, 136, 136,80,32,80, 136,4,0 

59 9 0 DATA 9,63,36,36,63,8,80, 34,21, 10, 18,126,17,84,84,84,16,248,72,72,248,40,80 
,252. 144, 144,248, 144, 144,248, 144, 144,252 

6000 DATA ?,1,1,127,68,82,20,37,3,61, 1,31, 17,31,1,63,0,0,0,252,68,84,136,20,240 
, 0, 0, 24 0 , 1 6, 24 0,8, 24 4 ,4 

68 10 DATA 9,31, 17,17,21,101,1,2,4,248,0,15,0,0,0,6 3, 0,0,0,0,124,68,68,68,68,68, 

1 48, 20, 4,8, 1 6, 224,0 

6020 DATA 3,0, 16, 16,16,124,17, 18, 16,124, 68,68,6 8, 124,0, 3, 0, 0,12 8, 12 8, 252,1 36,8, 

136,136,136,136,80,32,80,136,4,0 

6030 DATA V9. 4, 9, 17, 33, 5, 9, 16, 35, 80, 144, 17, 16, 16, 16. 16, 16, 0,252, 4, 252, 4. 252, 0,2 
54,8,8,252,8,136,72,56,8 

604 0 DATA 7, 124,69, 68,72,80,72,68,6 8, 68, 100, 88, 64,64,64,64,64,0,254,4,4,244,148 
,148,148,148,148,244,148,132,4,28,4 

6050 DATA 79, 16, 17, 125, 17, 17, 125, 17, 17, 125, 17,85,85,81, 146,20, 16, 0,254,0, 120,0, 

254.80.84.72, 118, 1 28,4, 126,36,44,4 

60 60 DATA 9,31, 17,17,21,101,1,2,4,248,0,15,0,0,0,6 3, 0,0,0,0,124,68,68,68,68,68, 

1 48, 20, 4, 8, 1 6, 224,0 

6070 DATA 9,63,36,36,63,8,80, 34, 21, 10, 18, 126, 17,84,84,84, 16,248,72,72, 248,40,80 
,252, 144, 144,248, 144, 144,24 8, 144,144,252 

6 08 0 DATA 0,0,31,0,0,6,0,15,0,0,0,0,127,0,0,0,0,0,240,0,0,0,0,224,0,0,0.0,25 
2, 0, 0, 0 

6090 DATA 8,255,8,2,124,41,43,61,73,21,36,76,20,100,8,115,32,254,32,64,128, 

252,4,252,4,252,80,80,80,80,146,12 

6 100 DATA 0,0,31,0,0,0,0, 15,0,0,0,0,127,0,0,0,0,0,240,0,0,0,0,224,0,0,0,0,25 
2,0, 0,0 

6110 DATA 8, 8, 127, 9, 9, 63, 16,8, 4, 255, 0,31, 16, 16, 16, 31, 32, 32, 252, 32, 32, 248, 16, 

32, 64, 254 , 0 , 24 0, 1 6, 1 6, 1 6, 24 0 

6120 DATA 9'Y,0,0,17,125,17,17,17,20,27,48,81,17, 18,21,104,16,0,0,252,4,252,4,2 
52,0,254,32,32,60,32,32,160,126 

6130 DATA n. 0, 16, 16, 16, 124, 17, 18, 16, 124, 68, 68, 68, 124,0, 3, 0,0, 128, 128, 252, 136, 8, 

136, 136, 136, 136,80,32,80, 136,4,0 

6140 DATA ?, 0, 32,32,94, 136,8,8,8, 127,8,8,20, 18,34, 192,0,0,0, 124,68,68,68,68,68, 

68,68,68,68,124,68,64,0 

6150 DATA 8,8, 16,62, 34,42,42,3 5, 126, 162,42,42,42, 34,70,130,0, 124,68,68,68, 13 
4,0,2,124,164,36,3 6, 40,16,40, 198 

6160 DATA = t, 8, 8,127,8,8,1,127,8, 1 6, 32,95,144, 16,16,31,16,16,16,254, 144,144,0,2 
54, 0, 0, 0, 248, 8,8, 8, 248,8 

6 170 DATA a,0,64,32,19,2,1 30,67,34, 10, 10, 10,18,36,72,147,0,0,64,64,252,68.68,24 
8, 1 36, 136, 136,80,32,80, 136,4,0 

6180 DATA 9,63,36,36,63, 8,80,34,21,10, 18,126, 17,84,84,84, 16,248,72,72,248,40,80 
,252, 144, 144,248, 144, 144,248, 144, 144,252 

6190 DATA 1,1,127,68,82,20,37,3,61,1,31,17,31,1,63,0,0,0,252,68,84,136,20,240 
, 0, 0, 240, 1 6, 24 0,8, 24 4 , 4 

6 200 DATA 9,31, 17,17,21,101, 1,2,4,248,0,15,0,0,0,63,0,0,0,0, 124,68,68,68,68,68, 

148,20.4,8,16,224,9 

6210 DATA t',0,15,8. 15,8, 15,0.255,9,9,9, 17,41,69, 131,0,0,224,32,224,32,224,0,25 
4,0,0,224,0,0,0,254,0 

6 220 DATA 9'Y,1,1,1,1,1,255,1,1,I, 1,2,4,8, 16.32, 192,0,0,0,0,0,254,0,0,0,0,128,6 
4,32,16,8,6 

6230 DATA *'>, 16, 18, 16, 25 3, 5, 9, 17, 41,85, 149, 16, 16, 16, 16, 16, 16, 32, 32, 32, 252, 36,3 
6,252,36,36,252,32,32,32, 32,32, 32 

6 24 0 DATA va, 0, 30, 18, 18, 30, 16, 0,7, 4, 4, 4, 4,8, 16, 96, 0,0, 240, 144, 144, 240, 1 28, 0,192 
,64,64,64,64,68,68,56.0 

6250 DATA t* , 0,15,8, 15, 8, 15, 0,255, 9, 9, 9, 17, 41, 69, 131, 0,0, 224, 32, 224, 32, 224, 0,25 
4, 0, 0, 224, 0, 0, 0, 254,0 

6 26 0 DATA 9' Y, 1 , 1 , 1 , 1 , 1 , 2 55, 1, 1, 1, 1, 2, 4,8, 1 6, 32, 1 9 2 , 0 , 0, 0, 0, 0 , 2 54 , 0 , 0, 0 , 0, 1 2 8, 6 
4,32,16,8,6 

6270 DATA ?a9, 0,0, 124, 68, 6 8, 124, 68, 68, 124, 0,0, 0,1, 2, 12, 0,0, 252, 132, 1 32, 1 32, 252, 

132, 132,252, 132, 13 2, 132,4,36,24,0 

6 280 DATA •;», 0,30, 18, 18, 30, 16, 0,7, 4, 4, 4, 4,8, 16, 96, 0,0, 240, 144, 144, 240, 128, 0,192 
,64,64,64.64.68,68,-56,0 
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6290 DATA t',0,1 5, 8, 15,8,15,0,255,9,9,9,17,41,69, 131,0,0,224,32,224, 32, 224,0,25 
4,0,0,224,0,0,0,254,0 

6 30 0 DATA a,0,8,8,31,50,82,18,127,18,18,18,127,40,68,130,0,0,0,0,254,72,72,72,2 
54,72,72,72,254,136,68,34,0 

6310 DATA y' 3 *>,0,1,1,1, 1,1,1,1, 1,1,1,1,1,1, 127,0,0,0,0,0,0,0,252,0,0,0,0,0.0,0, 
254, 0 

6 320 DATA >», 0,30, 18, 18, 30, 16, 0,7, 4, 4, 4, 4, 8, 16, 96,0,0, 240, 144, 144, 240, 128, 0,192 
,64,64,64,64,68,68,56,0 

6 330 DATA t',0,15,8, 15,8, 15,0,255,9,9,9,17,41,69, 131,0,0,224,32,224,32,224,0,25 
4,0,0,224,0,0,0,254,0 

6340 DATA A,0,8,8,31,50,82, 18, 127,18, 18, 18, 127,40,68, 130,0,0,0,0,254,72,72,72,2 
54 , 72, 72, 72, 2 54 , 1 36, 68 , 34, 0 

6 35 0 DATA 1-'?, 64, 126, 136, 4, 5, 31,1, 1,255, 0,0, 63,8, 4, 4, 0,64, 126, 136,8, 16, 240, 0,0, 2 
54 , 32, 32, 248, 32, 32, 224, 32 

6 36 0 DATA h' >>, 64, 126, 136, 4, 5, 31, 1,1, 255, 0,0, 63, 8, 4, 4, 0,64, 126, 136,8, 16, 240, 0,0, 
254,32,32,248,32,32,224,32 

6 37 0 DATA >a, 0, 30, 18, 18, 30, 16, 0,7, 4, 4, 4, 4,8, 16, 96, 0,0, 240, 144, 144, 240, 128, 0,192 
,64,64,64,64,68,68,56,0 

6380 DATA J7, 8, 16, 36, 66, 253, 1,126, 66, 126, 66, 126, 66, 66, 66, 70, 66, 64, 68, 120, 64, 64, 
66,60,0,64,68,120,64,64,66,66,60 

6 39 0 DATA >' 3,0,120,68, 68, 73, 82, 72, 68, 69, 100, 88, 64, 65, 66, 64, 64, 0,32,80, 136, 4, 25 
0,32,32,252,32,32,168,36,32,224,32 

6400 DATA Y?,0,0,0,0,0,0,0,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,254,0,0,0,0,0,0,0, 

0 

64 10 DATA i{, 0,1, 16, 16, 127, 16, 16, 16, 16, 16, 20, 56, 64, 1,2, 0,0, 252, 68, 68, 68, 68, 68,6 
8,68,68.68,68.132,20,8,0 

6420 DATA 7,8,8,255,9,9,1,127,1,1,1,31,16,16,16,31,16,32,32,254,32,32,0,252,0,0 
, 0, 248, 8, 8, 8, 248,8 

6430 DATA >>, 1,127, 1,63, 32, 63, 32, 6 3, 32, 63, 32, 255, 8, 16, 32, 64, 0,252, 0,248, 8, 248, 8 
,248,8,248,8,254,32,16,8,8 

64 40 DATA >' 7 , 1,1, 127. 129, 129, 31, 1,31, 1,63, 1,2, 4,8, 16, 224, 0,0, 252, 2, 2, 240, 0,240 
,0,248,0,128,64,32,16,14 

64 5 0 DATA 7 ,0,127,0,1,2,5,9,17,33,65,1,1,1,1, 1,1,0,252, 128,0,0,32, 16,8,4,4,0,0, 

0, 0,0, 0 

6460 DATA a, 0,0, 0,63, 32, 39, 32, 32, 32, 33, 33, 41, 37, 37, 95, 128, 128, 240, 128, 252, 132,2 
40,132,120,0,64,64,72,72,80,252,0 

6470 DATA 7 ,0,16,16, 16, 124,17, 18,16,124,68,68,68,124,0,3,0,0,128,128,252, 136,8, 
136,136,136,136,80,32,80,136,4,0 

6 48 0 DATA t7, 0,60,0,255, 0,60, 0,60, 0,124, 68, 68, 68, 68, 125, 66, 0,130, 68, 40, 252, 132, 
132, 132,25 2, 72,72,72,72, 136,10,4 

6490 DATA a>, 8,8, 16,62,34,42,42,35,126,162,42,42,42,34,70,130,0,124,68,68,68, 13 
4,0, 2, 124,164,36,36,40, 16,40, 198 

6 50 0 DATA =♦, 8, 8,127,8,8,1,127,8, 1 6, 32,95,144,16,16,31,16,16, 16,254,144, 14 4, 0,2 
54,0,0,0,248,8,8,8,248,8 

6510 DATA a, 0,64,32,19,2,130,67, 34,10,10, 10,18,36,72,147,0,0,64,64,252,68,68,24 
8,136,136,136,80,32,80,136,4,0 

6520 DATA ?, 6 3,36,36,63,8,80,34,21,10,18,126,17,84,84,84,16,248,72,72,248,40,80 
,252,144,144,248, 144, 144,248, 144,144,252 

6 5 30 DATA ?,1,1, 127,68,82,20,37,3,61,1,31,17,31,1,63,0,0,0,252,68,84,136,20,240 
,0,0,240,16,240,8,244,4 

6 54 0 DATA 9,31, 17,17, 21, 101, 1,2, 4, 248, 0,15,0, 0,0, 63, 0,0, 0,0, 124, 68, 6 8, 68, 68, 68, 
1 48, 20, 4,8, 1 6, 224,0 

6550 DATA >,,0,30,18,18,30,16,0,7,4,4,4,4,8,16,96,0,0,240,144,144,240,128,0,192 
,64,64,64,64,68,68,56,0 

656 0 DATA ')•), 0,124, 68, 68, 124, 68, 68, 124, 64, 72, 68, 74,80, 96, 64, 0,0, 252, 132, 132, 132 
,132,132, 132,132,148, 136, 128, 128, 128,128,0 

6570 DATA t7, 0,60, 0,255, 0,60, 0,60, 0,124, 68, 68, 68, 68, 125, 66, 0,130, 68, 40, 252, 132, 
132, 132,252,72,72,72,72, 1 36, 10,4 

6580 DATA >,,0,30,18,18,30,16,0,7,4,4,4,4,8,16,96,0,0,240,144, 144,240,128,0,192 
,64,64,64,64,68,68,56,0 

6590 DATA 77,0,0,127,64,64,64,64,64,127,64,64,64,64,64,127,64,0,0,252,4,4,4,4,4 
,228,4,4,4,4,4,252,4 

6600 DATA *' * ,69,41,125,17,17,57,16,16,124,19,17,17,17,33,65,0,252,4,252,4,252, 
68,64,126,146,34,82, 10,2,244,40,16 

6610 DATA 7 Y,0,56, 1,124,0,57,2,56, 1,125,69,69,69,125,64,0,32,32,252,80,80,252,3 
4, 32, 252, 36, 36, 36, 36, 40, 32, 32 ' 

6620 DATA *' * , 69, 41, 125, 17, 17, 57, 16, 16, 124, 19, 17, 17, 17, 33, 65, 0,252, 4, 252, 4, 252, 

68,64, 126, 146,34,82, 10,2,244,40,16 

6 630 DATA 0,56, 1,124, 0,57, 2, 56, 1,125, 69, 69, 69, 125, 64, 0,32, 32, 252, 80,80, 252,3 
4, 3 2, 2 5 2, 3 6, 3 6, 36, 36, 4 0, 32, 3 2 

6 64 0 DATA a, 0,64,32,19,2,130,67,34,10,10, 10,18,36,72,147,0,0,64,64,252,68,68,24 
8,136,136,136,80,32,80,136,4,0 

6850 DATA 5,63,36,36,63,8,80,34,21,10,18,126,17,84,84,84,16,248,72,72,248,40,80 
,252, 144, 144,248, 144, 144,248, 144, 144,252 

666 0 DATA *' v , 69, 41, 125, 17, 17, 57, 16, 16, 124, 19, 17, 17, 17, 33,65, 0,252, 4, 252, 4, 252, 

68,64, 126,146, 34,82, 10,2,244,40,16 

6670 DATA 7 -/, 0,56, 1,124, 0,57, 2, 56, 1,125, 69, 69, 69, 125, 64, 0,32, 32, 252, 80,80, 252, 3 
4, 32, 252, 36, 36, 36,36,40,32,32 

6680 DATA )*), 5, 8, 23, 36,84, 151, 20, 20, 23, 16, 19, 18, 1 9, 18, 19, 18, 16, 160, 252, 68, 68, 25 
2,68,68,252,0,248,8,248,8,248,8 

6690 DATA *' * , 69, 41, 125, 17, 17, 57, 16, 16, 124, 19, 17, 17, 17, 33, 65, 0,252, 4, 252, 4, 252, 

68,64, 126, 146,34,82, 10,2,244,40,16 

6700 DATA 7 -f,0,56,1,124,0,57,2,56, 1,125,69,69,69,125,64,0,32,32,252,80,80,252,3 
4, 3 2, 252, 36,36,36, 36,40, 32,32 

67 18 DATA 4 :',8,8, 127,9,9,63,16,8,4,255,0,31,16,16,16,31,32,32,252,32,32,248, 16, 
32, 64, 254, 0, 240, 1 6 , 1 6 , 1 6 , 24 0 

6720 DATA >',0,0,17,125,17,17,17,20,27,48,81,17,18,21,104,16,0,0,252,4,252,4,25 
2,0,254,32,32,60,32,32, 160, 126 

6 7 30 DATA n>, 8, 8, 16, 62, 34, 42, 42, 35, 126, 162, 42, 42, 42, 34, 70, 130, 0,124, 68, 68, 68, 13 
4,0,2, 124, 164,36, 36,40, 16,40, 198 

6740 DATA 8, 8, 127, 8, 8, 1,127,8, 16, 32, 95, 144, 16, 16, 31, 16, 16, 16, 254, 144, 144, 0,2 
54,0,0,0,248,8,8,8,248,8 

675 0 DATA >>,2,1, 0,4, 4, 4, 36, 36, 6 8, 132, 4, 4, 2, 1,0, 0,0, 0,128, 0,16, 8, 4, 2, 0,0, 0,8, 8, 
16,224,0 

6760 DATA 5, 8, 80, 32, 20,8, 16, 37, 126, 17, 16, 84,84, 84, 16, 17, 252, 132, 72, 80, 32, 3 

2,80,140,0,32,32,248,32,32,32,252,END 
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► I- b X 7 =* l/Jo XI, MZ-1500/700/ 

2500, FM-8/1U*#, A *) Sttt, *4. V 4 >7 4 X <•' *0 ^^0* 

OHilTTr'—£<0 L (D&tflti'C E 7 t <.'£>*• i ofc 

_jm( 32 ) mm 






8651 ESCDTHEaJBSfcAWJ 
IZ7301TCAT)T3glZ£93:b£oM 
z-moax^y^'^z-Fzn * w ■ 

ieunatj 

T5mmxT<n-&i\ 

mam mm m$ 
Mz-2000 moyf-Lsyno^ua. 
ire, $m 

AAfflOW SiftfU AHZAoTO \3ffl 

«*<ib»w«9 - o wm\ojso*<£3*> 

oTATlU&DTir#? 

AES® ^ 03 

□ L^SfeT-zY-KASATTSe: 

3&bT&&Xl&§o 
L- N5(T/TT^«7Y£ALT33i^©IT, 
7T>A5/a>Y-|Z:®iiLTL3:075ffi 

ty 0 

PRINT “DEF KEY(n)=”; CHR$(m) 
©Y-OIZAYLY7 hT-FT£r$A<0<Lffi 

SIZDEF KEY.i3SrcSr»9#& 

A-VY£±Ai2)YbUA->A^^ 
£^-Y-K7TSiHgATirs£o wpi^ 
OYTYT^AAAaAT-YSATlTS 
•SYOIZ&D^So nlS37p>9^3>^r 
—©US mB5^b£0V4rVi7A'9©7 7 

^IZ^SAu©MPoWZ®S=l>ED- 
IIAPTAAAOATMT^,, EflZ#<©® 

sBsa03wa^Tx^a 

tt\z\imDj3W]Zo t om-$o 
POKE$23,1: POKE$24,13 
ZtlV, xAA^QfflOOA^m^ 
mttimfczttmmz&o 
POKES23.4 

£^SO<L«U3^ o 23h~25h»0ZB, 
VPr-&mA££&ZSffi^&$&&W 
AoTOVSCtTetfo TTYLHim, 30 h, 
0DH©lliCM4un\3;<3o TZAIZAoT. 
fiSIULT^TC^SONo 
Z©75^£§0=l>hDHL3HpAA 
?«70WSr<3Z POKE S$oT®5 


■s&Ymi^ss^, s@rm -eot 

mm-DZi 

^L'cT'^o 

^YMONLfJoT tTAIZAoTT 
JffSUflKDllv^KC, 1200„S&0'S 
129FHSt6©F l 9§^9'>70r*r<^ 
0\» ESSSS0S 

1200 52 55 4E7F0D. 

LSoTovsB^m, oniaAA^-^ 
-K5TC, RUN “l £M,\Z&&&Z9o 
to33mO*\LSON3:<m ZZIS7>> 
AObaAT^TflLYtSIZgt/TYTT 
^JZflMUT3B5WS0fflWc 1205 h 
StK) s E>l34C 49 53 54 7F 0D<L£SY> 
TO NT, Z41KLISTT T<Jo SftCffll N 
Tl\S0DHl3:3T?5y©t/\ly-9T, 35-5 

yj’yyy^y^izm&zpmmo 

9®osL/TO \3^ 0 T^U 1 200 h Sfiff£> 
0 Dh£10S353M)«, 7t> 9A3>T- 
-©l^a^ATAUASttTbSOOT 

T^o 

STZI> PDH ^Vzo^on-pyo 

y^y^-^cDmmv^tf, f7~fiott 
n-?nooooc^5cia i200 H sm» 
^©cP^CMT^KTSSm^o 
1200 h : OD 0D 0D 0D OD 0D 04 0D 
03 OD 02 0D 01 0D 
(F1~F6©F»47UT£;n3) 
ccDWir F7 ea 

T3T3<> zti\i.z>T , yyy^y^-—oygm 
i [r^-yi3t>-y) um&muz uso 
istow o a-viiaf-©! gr^w&st* 
5IZI3, 07EB h Stffl© 9 Ch ^40h IZ3£T.^ 
OTlT=l>hD-JO^T^75'^T^ 
AAAaYT-YSATrSTTOIZ&O 
O^yfclBHilZ^Tg^g'o K 
LT&TCYSOV 
5«^IZO©RirCBASIC©'5 
DEF KEY(1)=/0/ \0\ 

<LJJ52V&, POKE $07EB,$9C t3 




ni* ©t^-/lti£oaaa©±:¥» 

—^TBTZAYT 


ST, TTtTT??UATim N^^TfX 
im CZ-8FB01, CZ-8CBO10TZ 
5>cft 01A2HSfi©AFH^B7 H C*S«^ 
^>i:, rESCl +73-v;[AF-T 1 ^Y® 
S AT'ZiitfTS^cTOIZ&L) m<> \ES 
C]Y}?L£35<LIZAT&;n£=]-FY, □ 
>FD-J l^B5etfCS8ST*S£^E 
£'5>tf£>T^o I CTRL I +E8if&fc53 
/uA#aBfc89S9‘o 

££L! Z©cTOIZUAHT(Z=l>P 


□-Jin-FY»8«SZcDcY 7U>9 
tmm'm&ztm'omifo «ytu 
TC^SOL (* AH') 



8533 0f3S© r KgaztU§X1j y 
§t6AjY?AIS, SoYOTOYA&A 


□A^^^ToT^uT©^ US. 

10 CLS 

20 LOCATE 0,0 

30 PRINT BIN$(ASC(INKEY$(2))) 

40 GOTO 20 

t, wm^\iz(DT^ifTy^-^myz 

Ya±TZffiL'7htf1 ®mmte(DT$o & 
1S1585®TOo MilTXICT^o 

aim esr ms 

MaW^ToMOfjY, r GOTO 
30 j IZLTATTYSOV TOAn 
& LOCATE 0,0«nsw 
5, OY^l&YS, INKEY$(2) ©TA 
T-Z-K?2MmTLTL<rU 
^«3*^>*-^U5£SCB; 

110111 (&B00110111) 

t^/Tsn, RMitZ'vPtfoiz&ascf 



TAo 

TISo I¥L<^TTATLc5:Z>o 

t><l©^^©7DA^tij, ®m 
11111111 

ts^sn, Ty^r— ^jf5"cL 
11011111 

<L«o£l33T<Jo 6«©2iif»3S 


i75 Oh! MZ 1986.4. 

















nsis^ciz, la^zisstfrcm 

tmrcttj. rai^MzaosuTGa' 

fcasssratstt. 

^isriisssm m $ 
fe&ut, mnm^zzzmix mco 
TtftS&l vtOXMBal^snr U*t 
£<bxls, 

-i©?/ V+'y9" h/ WItY 

*i + 1 1 \25 >"■ 

^PRINT^St, 

1+1 /\29" P/\+I++ 
(©SoCDST^^m CfflOttfS, g 
zT&AXDgDT^ZJZIS, 

22 PRINT SPACES®: REM *T7. 
25 LOCATE 0.0 
®fi)1SJ£3 y X£'C3'o 

?-5>Ls3-9%m-DZ%i \m, 
gZ-StttS BASIC IZMort- 

yvzuL\yo / 7 ?L> ostAtt s-os 

“SWORD”©£x>S) IS, ii-5 J p-or+ 
-<^ / \tz-7^niss:i\fflro+e>^? 
^olS95*-5>b=l—9'£M-3L7m\© 
rusx»#? +nt+, 85^8 bsiz® 
x>£ “JODAN-DOS” teut +- 
5’UD-^^<r=6“SWORD”^JIS 
&K>«#? MS XI turbo T+JL 
3or?„ Stint 'j\6 m- 

O m&fe&IZBZIA JODAN-D 
OS£I£aIS, 7-VlsO^rm 
ocPo+>«mizATDrs^^o oaaflMS 
IS^fflS^IZ&D^o 
©^^1985^8^S73^-22©ST!»Z^ 
S r +2jlZ5£oT, StU< JODAN-DO 

©CZ-8FB01£iEDD^3o 
POKE &H012B, SHOO, &H10 
POKE &H1053, &H00. &H10 
£UZ : EZ.9%'J>'QB&Mx.Zfi'£>, ®Z 
\f-o1z JODAN-DOS (D'-jZZtIstZ 
ZKO\Z, BASICS 

SAVEM “P^T7S§: HuMonitor. 
Obj”,&H0000, &H149F, &H0000 
<LJ"C1z— 

©^IZ^Ox-r^lZ, 3000 h 
a^x'vw^ets-Tus^o +x'v9 
ttLJS, 10eef6^S®76^-27t11^ 
§©38^-27tf5ffl®5tf3DD^<?tf, 6 



^gCDISOIS IWttSQ&Sffi), 11J3S 
©isotf+ivcutOo ts&a&fasm 
+oizur<^c5U 

1) JODAN-DOS ^enra, 

2) LOADM “HuMonitor.obj” £Hfx, 

3) MONtUCHuBackMonitorlZM^ 

m a 

4) +X'v7ttAJ£*J$jM3o 

5) tTS2V©^^5*GD000<LDr,J 
ODAN-DOS IZ^5o 

6) SAVEM “CheckSum3000.obj”, 3000, 
322F.3000 

rx+^lz-tr-T^-So 
@‘SWORD”£TTSZV33a 7x£IS, ©© 
+X'y9+t^fflJJ532^ScLllD'C^o + 
X'v9tt^^eor“SWORD”^T53^ 
*IB«/Ve^DWaCI* JODAN-DO 
S_bS5, 

LOADM ‘HuMonitor.obj’ 

LOADM‘SWORD.obT 
LOADM “CheckSum3000.obj”, R 
<LD^o 

©FORMAT & SYSGEN ®5Mo 
©WVfcUKC. SWORD (jy^7!fL> 
JODAN-DOSr 
*rU ^x+77£7:X-T'yhDT:35$, 
LOADM'HuMonitor.obj” 

LOADM “SWORD.obj” 
LOADM“FORMAT&SYSGEN.Obj’,R 
£Sf7l/C<j5S£l \,35<LIS, 1986^2 J3S 
©46^-2>IZ&3 FORMATS SYS 
GEN ©ffit VJIZfiLxISOKTTo 
ftlSCZ-BOOFSffioTUStf. 

3 BgCCZ-800FIS~/-?5h / ^ 
^omststvcast)^#, zn^afi 
©SffiE5*+XC7fflS:^IZ6 msOTIZ^S 
ZtlSTqJi&SOTU+o^o TLZL-tf 
-7fCS®LVT-5S:0SHARP^A»IZ^ 

aaxssu m.(Dr‘-<7,omoyf-L 

+<READX5-«:L:tfE!S 
M^IIM 51*0 

qz^/ulSx+^KSaXY-^R 
EADI^-^EO^ffllS, 5/-Y7 
^+/G©1St VfcL35^xffl<T©TT3Tf, 33 
jiqig't+jao^s, qzs^/v©R^+ 
T'aiWTTa^EO DTI V5 tt Y3C t© 

isonsst vtim \s3-„ 
zj-O^XUtt 6rns LTFfflE^+TT 





stmisirm wThcLi 
OfoTolZ r 7Y/tf-j 6M0»'H2>a> 

(#isao) jarosaff, oms Wj 

<LDT«5n ^TfflZ.90x^lS5^ 
IZJiSD'Cl^o -E©IS*YDV7h/ \OX 
T+. 0 t'VOr-glZISSjKDr^AVfC 
Z-800FnSSS^^A;j £<L“cL80<LO 
3IS3591«3St/i;o tUB-ateSSI* 32 
stfeixiassBseRT**?,, 3—77 
T^fflraSQBlS, ISLJucagllZX/T- 
tfjgS3©T*, r X=y-7 3ESSI AZtfc® 
3j 89* x+^ffllWTTg^x^ 
ISO#PIVZU£©o fi£§gT3£©IZIS, 
x+TtGBASIC^ffioT*!:, XL.—X 
IZD-K -L-7YTCST)J'L;'0*^^S 
Gt’ft BgVghMOTJZWSl/OlO 
T^3G<L£<L“£33^©L^o 
8& 5/-77+G^T3©ISK7+ 
7©a$®stizw»L^^©-c^-^-iz 
t-oT+^qJigWo (S® *-) 


HracfcgXLit 


a-^Mr4i:,SoTU5;i, iT+4'- 

t x-bmmx-t. t-A.ZKti ®.u < + s i'„ 
IBM, $F=1, mm&.tfl&tobib'.lXti&iL 
l+Lit. fcfc'L, 

3fc<7)<7) + C(J, 

To *<£®, 7;i7MJ»iUU?J 
+ K M (i 4 ?> -< < *# W C,«««, 
'£'#4'ib0t.Atixr 
A'Cti'X < tzZ l'o * fc, 

<7)SM$-J: < Slti Ztf, IW.mtLX, H 
MC (i*l£-bXfcgf 5 - t IZ4 o X l' 
iTfflTT7ii</:?i'. 4*5, SP=1<r>F*9 
gicoi'X, *©P5i'-&+-tl-5>- i: t,**; 
JT®X, «B##t,WELX < fc'Sl'tao 
564fe : +102 *£«+ftHEea#mj2-i 
(1*)0S:V7 
t±J4SS? r Oh! 



oh!Mz«raa 179 
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♦ 2fl4Jlcli, S>ntH1tz< 5A,mA* ; liDTt' 
Ac©IC, «A ! *t-3Xl'4l'4A,Xt5l' ! 

ms #—05 (15) A 1 ** 

♦ A -A, l'#4>) “SWORD” XtA', ftiLT 

li, "SPEAR" *> "AXE” Ac* L S of^TTIt f 
<a. : tli “BOW” A' “LANCE” fi/i'JT-U A A\ 
t If SIS “BATTLE AXE" A' “MUM 
BLADE", "DRAGON SLAYER"4'©A'4 4l'-3 

Ac, RPG IC/'7 •xXl'54'*>o 

miw m (is) sss* 

*4fcrt5ITCU:4i'i A X’t4 o “AXE"li if 
A LA;<7)oT^A f ^A 1 A:< §A7ftX4 LA:A' 
Go 

♦WBUtfeUi r 0^5DS«v5V>j LSISA 
?n/:X? 7 7©i?A, t^lCXS#? 4TL 
Ac 0 4A'X'L, »PJ)lC0S$nfc»^, C © 3 — 

t— aziax-l i eroded l- if ATT. 

'J'JH iEia (28) Sr»w 
*> hc*s-4.r*#5itPLfc. 

♦ 2 fl#© Oh ! MZ t*«««9JTSS«l&it*t* 

«snm*#a(jseA'ofco it«WMz-7oocL- 
+f-A ! £l'©lcli*Sl'Ac 0 *LX. iK«£ib 
MZ-700 5-;A4'Ltl7Tl'iAfaofflA'i:L' 
5t<Sofc. 'J'UJ Mil (17) 

♦ 2 H#©iS#4#aSli@eA'oAcTtfc. /«V3 

> AISItt#©SS04 A'L' 4.EAci A T-, #4«#S 
A'ii8 i Lfc. $B §Ail (40) iSftm 

*g)3fi.4/L4''-y 3 >A<»# 4/LXt 4ia, 
V'5<-'5SoT5itf„ 

♦ BASIC DATA LIST Part. 2 li, fulllBttAcl'^ 
A$#le4y, *l'IC*IJffiLXl'4 to <t?£tL 
COTJ:A4ikBie*5-^JIKLT < AZ21'. 

ffiJII «■- (60) ft»it 
«ftt5©(iAcw^AAZoAclt;ixi:, #AX 
i'AcAZItXA*iL<Si'4t. 

♦ 15A-t 9 ICC(D BASIC DATA LIST liSiLX 
I'Jt. te©it&^7>TRLt5JiMT*4y L 

< TAi'tsL'Sto 

¥« H- (25) «5*» 
L -3 fc H^t < X- #filf(4 4 *>-3fc/LT- 
t It if fa. 

♦ SW0RDA < 2^#T«S?nX, ^ 4 TOT S-OS 
M«©7o ^7A 4tTLiA4 4lift!*4G4 < 4 

-3Ac„ ChT-aa-, tMt<77S^A ! «t< AZ5i. 

;**£ (16) Bill* 

2©«£-(i, Alii* LA A 0 t to Act 
2 5 A'4. 

♦ r JTJT7X ? — t BASIC fib <T)9b±~'o 

liBtTt I «# HI (27) **EB» 

SIS 5£«fe 5 9)ttA* G © 7 7 - -A t -x -fc - *'1: 
$ e*• L STcXV iz Lt't Si' 41„ 

♦ 2 ■§■© Again Watch 5- ISA X, 4 5 li t t S 

->tzt>\ 'fij‘m«a<7)iifLi'«tiicMti5-®L 
5©littAcoXl5)LA;; l SA« LA'L, 7-*- 
A't&l'MM©-**- I- 4ifc5fll£4TtnT < ft 
5<774G 14, t©*J?,ieli**fj*4©A.;Aj ! .o 


pm % (i4) *®« 
WfflXliWI¥X# 5/LXt(t£, 4A'4A'fi] 
•HO-oT^x. Gil4i' t> ©Xtfa. 

♦ 3>ecL —?MA*©tt*4LXl'4tA', 
©6g4Gl.XL(iA,L A ICOh ! MZ(i*l'ft§X 

tfa. s scy? h/'^aa*ttxt. 

SB S- (21) *S«8 
iLO/KtA, CfLA'4 i ito 

♦ “SWORD" S$© MZ-700/1500 CL—tF—©g£ 
A.'-'o *-A*©*- pytZ-PA'GiotSt 
?Xiai'-?Gl'Xt4fao fZTIsEl'^ttTS 
fcJA©M!S4T< xT frUSAtL Acl't Si'4 t. 

4 tltlBI0A'G47 3E 30 90 474 L 4 t. Sfc 
(CIBID 42C tSSCJt. CftXtl'.i'-Atai' 


Y=t < 4o Ac 4Si'4 tA\ *Aifc»*Xli4l' 
4 l'AiLtl, IBI2©304 IBID ©2C ©<I4l'5l' 
5£txT*T < AicFl'. IBI2©{§4*# < t5 
t, t— I- '7 f — h A ! A'A'5 4 T'<77a#p^< 4 
IJ, IBID<7MiS-IBI2<77ttlZi6< t5lif t-h 
U e-h©il?A ? aL 4 t. 4 fi, :ft 6 i 7 )fl 
14'7-b-y h ^-T 7 t£7¥L, ROM T-7-LT*^M 
LT < ti$ l'o 

»H (29) sfl 

Afi^nX^cLT, ffii'^t < W: 

aL7zC Eli**) 4-tfA.o 

♦ h<r> s-os tflz xxal4-5T!@o 

X#4LfcfJo *t(Jg»4V7 h A ! ttilx.(4, # 

r H*©CP/Mj t LT^-tt»lClSA < TTl'< 
ICill' 4 'l'o tOTt # IZtJOh ! MZ< 7 )€®j fci£A { 
nT, US®, TAS®, ai5®4^A'A ! tti®^n 
fc‘) LT„ ttffi SS (20) 

r ll 4:© CP/MjTj: A.T»fTi‘fi tz G t 5 MM, 
< 5 m«lii(t®4 A.-CK4 tr%® L 4 G L A L 
4 5o 36®pttlS*4i'L4».« 

♦ 2 E-tic “SWORD" ©IB*A i PtiTl'4OTT-, S 
t)t Oh ! MZ S-K-?T L S n/:. gfl-A'FMi— 
TP-T-*5L4 5-SnT (*.4*COh ! FM bM 
t'Hfc). LtlA'GL S-OS GSHStAiBMA'ttlTl' 

ntfll '4 tA' 4 o *« SI- ( 17 ) 

i* 7 ^fafP&'S-i- < ATS i'. Oh! FMOJSI 

■g ciit 4 S' a 1 : LTfa§ 4 t*>Go 

! A*>© r L<77,itj( MZ-2000) A ! *tl 

Aco A—A, 

oTAcA'GAc5 A A'o LA'LttiA'G I iiP=HS, 
®«%-AtlT*5t%s>A£:tKX-(44i'A'„ t 
XXMAX“SWORD" 5-AXlLte©, 4 8#Pfl(Jf 
Ac -d Ac ti h A A', 4 AcH^A'Ai A' L < 4 o X L 4 
-3 Ac. SWORD li 4 #-<77 3 <-Gl'AXlLX-tr-7 
LX#Ac(77X«iA'-3Ac©AAA ! , hbn r L©.i:j 
? AliBIKiM•) 1C4 -3 X L 4 -3 Ac©X* 5„< 
«oX*l'4-!j »Ul SA (15) tSU 
t'A'A, r L©A‘j fclilJi'AcAAItX-t^f'y*© 
*S-.Si'aiLXL4Ao itfSlCr'T^T 
i'5 4 A A5„ #• < Btffi L4ltAili*.„ 

♦ 4At, T7/' FM SiS LSI AMtiSaxti 9,000 
P)t)t5„ tf-3A'< *ii BUS 5rPFciAc©C, FM 
Sigtf- K li t> -3 t h t C4 *) t A. 





SB (17) it«i« 

♦ SS*±liP^Ll'o A7 P Ac4AAZt, /(V3> 
Ctt-3Xl'5S#Ps1t)5< ICfCl'o X-, 4-, Stiil/ 
Ot FMS«S^5A t!lil'5EC4-3XiJASrAc» 

xi' 4 to feB *h ( 15 ) 

p'Kf^li, IW t A3#A'*A> i -3 t A>A> •) 
t?7C©* t ll*X't4lo 

♦ 2 fl^P.ISZWXIturbofflf^ 7 ■( 7 7 7L — 
t>£ MZ-2200 IcaaLAcnjXl'ASfficlAo 4- 
lftn«-5l«LX<AZ?l'o ttiA'G, 71—, 

P. 138 <77JcA'P> 5 # i © AliffiA'f L A'XMAc 4 
A 4o ft« £« (18) g«» 

5#B©Ati, *©*li#Sy&H©li.Li«lc 
45AX'li^ri'A'tSoAcAX'tAA 
t A»4A; -3 AcX* L i A A' 0 

♦ 2fl^-P.I37©S13‘A, fAfe CASIOPEA ©A 

77>T*‘J 4 LX, CPt y X ASAYAKE 4 3 £— 
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4A27-L4C7;. fA<7)1±tSe(4f-y7")TX*a 
A. 7 A ! Slit SiS (16) Ojp® 

**114, #Se»S>-‘Aor7A?'taiT*'* 
o/cA-rX**.. 

♦XAe r /\'V a >X> i] 4* <| b, $tii$ L-<7)fl 
5-BL'TC'-5j tw-otzb, r fc«r. *: 

S*)*vfc. «<7)SB>g»t4fc%x>AtSf®T*5. 

fflSa 5A (15) #igJl|® 
*4 A ir=ttl T-« 7 T L 4 7 ?z 4 7 4 S\*‘ U 4 
X*‘, *ai48fl5k'XX(-'y-7v4At-?>4 
C'<7)*»4. 

♦*<7)X 7 x IC14/7Va >3.--X-zmAi.'4 X. 
X<7)rtlRI4, PC, FM (AV), XIF *>‘3-0- g ‘7 X 
O. MZ-2000/2500*> ! -& 2 A, Xlturbo *' 5 AS Mo 
tzt Z ATX. 04 Uff«Mi:'>t-7i4<7)T 
X. L4L. S <7) 6 A<7) XI a.—tF-<7)4>T turboll 
?rKo7c<7)A'3 A6C'4>„ MZ ?‘xf C XIe Alt 
^■7 T-x. *7* (i6) asm 

♦ s-os "sword" iz ziX'i tm&inittzi.'^' 
A4fF*AoAt,®M 4 X. S-OS 4T<h7tU 
x—>a>fc7A-*sameTt'4X7)4 -##s 

a. 7 — 4SlST4) 4> BASIC AH' 4 tilZ%m$ *l 
TM4M<7)145X;§:T-X. cnt^OTatieSltc 
7c BASICS5-4 t»?>S *<7)Ii?«l'LX 
C'4.ZS(4S»TS 4X7)4 “SWORD" -Ir^/SSX 
?c X x -y 7 <7)ft S A 4 F> If XXSI4 4 t T(4 4 M 
<7)T-(44 C't)'S® 1'4X. -tfUS fc C.*i7)'P,7) ! A 
(foTC'?c7cS fcl'iSl'JX. 

4>xr * ( 55 ) *«m 
5feM<7)?IS^S BASIC<7)SWTX*a. Mi# 
S*4Sy)l47*iLvMt*if, :: 14-M, a 
#<7)ftSAX>^<x-S-Six(caXT < *iT 6 
V'kM7)T-(4. 

♦ *14 2 0M<7)XA, «(4aTL4o7cAT-X. 



xtte-tb, (is) ms® 
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£>© r *B8 I #X-fo HMM 
ro.1!f-ftSSi«IJ, ;:©«(:: £-oXt4»*a< 
5£T?4Lfco r »M/S6j 1-14, 

cg t f4»A4-t'«t ■) <c u 77Utfii«-PKK©« 

A ! B£Ltt!£tTXl.'4 Lfc„ *5EX-J#-oXl.'fc*.* 
7C r ;I0!->7xAj *jR», mmnXZiL 
tz, LA'L, St?nt?Ii:i4, fcWSMxS-o 
A4£R©5£L#¥oXl.'4-ttA,X-Lfco 

Sfi# W- (15) ftifift 
■«l! 1 %<n%®.&'>xmtfLtzZ t irV'T-t 
4ia 0 & -3 fcpL < V#’ - 4 LTV'fctfltft 

-3 £ .o 

♦ Oh! MZ i; b SIS© “#«- b Ktx" <r> x n e. 



★#rB© PC-I350A—<#-©g$A,, fi.#<3 0|8) 
T-f^i;*IffcRPG r FANCY ROADj S-SS'.'X* 
4-#A*\ «!4©**A(4*-b-y 
¥ 170R* 5-IDW© T a. TIB 4 T„B0 0 L 4 

T. ©515-23 =*»-;SSB«l?ST4'Jlli$l 
502-72 #EB# (15) 

★ MZ-2200/2500© A - +K- t5vT7 13 ;g # L X 
C'SSiSFA,, r CCSj CAifL41+A*'„ 4#iz€ 
SarpF*9i£3iS13fctt4l'©», 

Sdl'Xl' 4 T©X-#iP LX<Z*X 
©^F^J^fip(44^l8^ 0 ifS c! A,(4 MZ-2500£ 7 
Jl'Sm LTL'%ttttibS5AT-r„ IfStt-?- 
?Sft©T'7 4 t>ltliTT-t'„ 14L < 1460Rt7) 
¥Bit©-3 A.aiS#„ ©466 «*fir(iBS4pE 
S#BI37 *«■** 

★ MZ-I500/700/I200A—#-©®? A,, r N-S- 
CjT(4Sf^««-*«LTl'4To >g»F*9g(4/\ 
-4**tS, 7->>|§»S, 7-X- KiA'ya 
>3—A-A'±ftX-, 2*aiX I 0#?8£#64 t 
LXC'4fo $ •blX®fgt#ifttZj:?>3 5 xlA 
J T—'>a>t)JztylzLXl'2>?77x-T' PL 
l'-t(460RHiD¥^©-))L. A£*2L*l' 
X*ifS5-o ©920-02 5JHm#;Rffi?ilOT4. 
76-3 U*#3* 

•kZtifzfr MZ-I500A—if—X-, 1t$8$&£LX 
< n%^$-)*Lxi.'4T.sa^*'+xais# 0 

©032 £#®Ai®m;tBTI9-8-5*iR»B(l!) 

★ r CZ-FL0PPY- USERS'CLUB (C-F-C)j XT. if 

M£-»*LXt'4To Sgttx l->‘J-X©5 
•f >#FD XL—y-A, DOS, 9 
-TpYjX® 7 7 4ffffi«-+'C.'lXjS»LXl'4 
To A£#2©Al460Rt;!J#|i) 

M©-)#®*®#. ®599-03 AEftSStSW 

«T;lfe#m3026-94 (Sfflp 

*iB®'J'6~t 3 4XfflX I ©A—+f—<Z>Hf 
$ A, r MAX I jCAkL, 4i4A,Z>\, A A# (4100 
R, g4^M300RXfo ;S*I(4±C XI ©A— 
Ai;-7l'X©it$6$:4g4TLXl.'4T„ 4T1460 
R«#|s|i4©-7 taiSS-o ®864 
mgRl29-l RT#/a 

★ Oh! MZ, 4-f-f4, ->>-feiMif—, MZ-80 
b i;»s4©*-6vjptyj.-^?a i 1#«sz«L4 


X14 Yj: t' x L i 7 f: X-fA* ! f*» T i © 14, 

fiM&X# r E (/;<*) ©B#ftj S2 4S, Rffi 

5EA1 (340R) Xt, 

T^rf4"3 AfSlfeT, v X — 73 S'★ ©a#©K 
i* ! **'tiXi'4T„ SF fc JA'Ittf, y>VY 
^->3>t,fc4C(4^-5X-L i 9*'„ 

t)R 15 (22) nan 
♦ l'' -31>* L < * A Yj: X S IS $ 1+ X l' tz tz V ' X l' 
4 To ?X, #>A 5 aSlSI5© turbo a— f-* 5 BASIC 
n-zfu am^+Tf. 3Sfi£L4LA 

<b, Jof<S«t547TtmX, #©151X14 

45u. asam±AUxS&*«ttB 

r nixrHlfsi 4 4 i:aSL x'°y a XXInl 
jfH'T.jOWf-rtia. *L*i:LX4 

to 
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■t+AA'oari!S(4aaYN*-Tx-o © 190-12 *a 
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★ #rB©XIDA-+F-©g$A, <%• S#A(4XI 

Dffl©*-tr-y \-#mmmZffi%LXi,bti J j t 
*«a»«-!4L©4 Lfc. itZX^fSAlxfeffl 
A L xi' tzti S fct'mxt. *« * ! ioo«JjtJii: 

iSoXl'Jt© 
X, aa/'A'tlXttfilr, #it?raL'Xfc 

*') < #•*> L < fc'lil'L4t. ®250- 

06 tt£JI|*JeffiTffi»«W(lll5ffi984 
% (16) 

★X I /turbofflT— 9 U a — tCZ- 8 RL I 5- I 75 2 
TRX'o xfv> • '7 A — ^ RC-20 

# I 75 5TRXo 2:fcC««E*#o a*Sl4ft« 
Y'4f+X*o®603 aH?m4bESIIfT«BT37 i# 

s*® 

*XH K *; t 7 '! > ? CZ-8PD2 (Bt^SKej 

*#) % 2 75 5tr<-f>i.'x-o ai«(4aaY\*- 

tx-o ®940 SriSi%fi[®|rt74 , iR2-2304-2 t 

★ T '7 >^MZ-IP07?r 2 75 5 ff|X. 4 tz MZ- 
2000A-Yf—©AC14 l/O-t-F, T'7>^-f 
>?7xYX, Yr-7bU£tt(4X 3 75 2TRX-, 
fx>>bt)ii44ii„ aHI4aaY'*‘+X-o ®830 
ilWmAS#rl5*Bjl5.l6 

★ XlCffiffiSl/O't y ^ 7t CZ-8I EB # I 75R, 

PC-8001 ') > ^ GR-250& 5 fH, X 

I aRF^-AiU-?£5TRX-„ ; &3!*WJ. * 
*SI4*g#-tTO©5 AY'4/tX-. ®445 * 
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*70 7 B-TX37Y ># 7 it ACZ-8B0I 
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Eif7K5c3-6-l-646 USB* 
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X-o ®089-06 4fc;Sil4'JllfB*SlJBIIgBTl9.2 
AifeSlIA SO-840155 (54) 2730-2537 

★ MZ-700S 7 4K>ltt! TRmi^X-o <) lx 
-tf-ytAXZ- I U03# I ^5TRmiattlo 4 



tl4Y\75TX-a*S5- 0 ©018-02 fckffliiWJ 
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i8*+0BjmA¥Tffli675 

★ X I a FDD-CZ-80IFS (fY32 BASIC, ■<># 

7 i <7, X-7 7H4) £ 6 75Riy.TT 0 4 fc 
ffi?8l/0#-F#8TRHTXo 
ffuUbim, a*si4a«M#+x- 0 
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ffl#T©BJ8l-3 IS#® 

★ 1985# 9 I000R G&miJ) X-o 
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★ 1985 # 6 , 7 , 8, 9 fl^%#l 000 R(iM 44 ®J) 
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!A4r 
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t'-oSt-TlKX-# 4-ttA„ 
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(tt^rttisstps ft2o«w^ 0ifnot(«^jii»)¥S«f(*Jii»)@isiss 
a ton 7 (*ssB)» 7 K 3 s-(sft»);Bi®as(* 

(ft«amjii3i;s(iUpm)A5c®(sm*)^;'«?flg ft2 o«ot^ u ± 

(.Stfolfe) my; * W $ n £ Ltz, 4’fc, 1tS,im-Z%i&i.'tzL it#, 

A«tt;*i:J: >) b trox-;7* < tzZ 


KhMfvKh 

wars 

Xl/XlturboS 3S 


7^-9-)UK 


T : 4.800R 

EH 5X27/ c/d; *xm*mj 'e J3Z7 


XI/ 

Xlturboffl 


7“H2 > 

i £&fr(D7>'r- h «* f t <<Dt& 

y^gfct^-c^iex©?;?., #M 

a c 0 -1 oiex 1 x ui^ 
< /'? i'„ «*«)0li4gl5acDiiJ 


3. - A— A 
00862(44)1176 


5 D : 
6.800R 


/' K V > 0011(841)4622 


MZ-1500E 3€ 


7X + - 003(486)7111 
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•NEW PRODUCT 


turboCP/M, XI LOGO 

l>v-7 

Xl/turbo^.—-f—|; t-o T, WW.<D'S7 
b fc''-b"/FJ©3E5fU 6 M?(U. 

i "f turboCP/M(CZ-130SF : 54 >7 2 
D, 14.800R) /j'* s , isE*«Xl CP/M-Tli 
-ttf- b 5 4 >f-2DD,2HD, 

8 4 7:7, ''-Kt"4 X7©£K74 7'£ 
t^-H, $ GtcliB^IgSSFSiSfig'Srfit 
X. , % 7° is 3 7 © '> 7, f A J-—Ip— 

(CZ-lllSF : BASIC t ©IsgfflbnT 
fig h 4 o /Jo i /J, P-]jt©RS-232C©-y-.-f> 
-b 

X1L0G0(CZ-134SF: 5 4 Vf 2 D)U, 
9,800P)tf-*4MBt&CfiPi, 70©*-b 
't'frSffll' S -wf-ft— b 
#4t'OlS/j:M5r^Tii'S*\ ** 
fi'JC(i1--r'i:|R^$n'Ci.'4turboLOGO*‘ 
GS8^«^|£fig£l&i.'/jb©fc|5]3?©J: 7 
f'^&o 3-|l]?g^3>ft6©« 5 4 7^l&© 
A/j'* f , 3^3 4 >*•«*»*—7TR©»# 
bWtl/ji' UftrtJo 

-tf"A^-5^^(CZ-133SF:25,800R) 
li, Xli/ y -X'-fffiffl oIfig4'*y a >i!fi 
fij©/j«6©-t 7 bt", :7 Xta(5”), 

A*'- b\ RS-232C7-7>4 £*> GtiW 
SATl'S, Xlt Xl turbo 
Ui'H 

XI'Z i}\ turbo-Cieffl L /Jjf&l iyef'A* 
> CO-fSfet*' "J fig £. 4 4 „ 4 ±>, turbo 7*^2 ffi 
L /J^fbli, “turbo*- 5 t i5]-^Ot* 
fig^^Fo-Cl'S. 

j.©;&t"a* — 5 4 

Mfil X- 7 b 7 — * l£, i" X (Jturbo * — 5 X 
'''X&mffiZ-<D7 v V 7 — 7, Te 

leStar, J&PHOTLINE, JALSKfr + -1" 



x, JMCC (B*-^ =t>7?7l C#r/J 
<: T-NET %• fip x. /J 6 ff 10 Uoti'S. 
d©J:-7(:, 

i.4 t, ftSIOaX b-»'”7^--7 

G t:#j£4 b © t 4 0 * 7 /J*„ 
;nG-^0%56sn4&Kai:oi.'t:© 
SfiLi'J. tli, j£t' 7 Gt:|f.±t:4=-i.'t w- 
tf- b l/jl't<® 7o 

JT, J'-V—Xlturbo C «t 6* 
x bij£fWfx-f &MtfL 44o l*)?Fli, 

bbs (a— f-izj: mm&v 

rff*^ 3-^-A©1t&4 m io'llfW: 

'J —X’uBli"4Q&A4£’) 

r, 4 ^ i ai 

XI/Xlturbo4 > t L/J2«ja±©3— 
f-x>77't4^t:i'5o fyl&frlfB. 
4 0Hi’iltt, /7 bM5gfi|5*x bEj 

2-*—7° (ft) 303(260) 1161 

mxmmm.Txxzns-i 

CU-14AG1, MD-9P1^td 

vv—~y 

•>7—7°i]'C,, Z&AtjftfcVT-t-n;?- 

^■mumi}7-TU X7V4 CU-14AG 1 
(89.800R) t ■ 9S^-^7 4 br"4 X 
7°\s 4 MD-9P1 (34,800FJ) © 2 
$ n/j. 

CU-14AG1U, MSKMiftK ( b" x b t“ 
7^0.39mm)''4 = > b 7 X b 7“ 7 7 >*£ 
H&tc l, ft£ft)£640 b" -7 b X4007 4 7, 

% ) 114,050 3t^ © ft¥X 3 1 * 4 i#l P£ £ if *Ji L /J o 

$ G U 7 7— 

fig * (512€l, 4,096fe 41" )£ 7 ^ <—X & 

6 teKKfe^SRGBry- o r\f]{s 
tlffll, Wl7x-r "4 >^"SIl4 i"fe 
?^©^bb«. -©* uwtitpi. 

—MD-9P1 li, 9 Sx-/{*7 4 
b -l:)tf£©iw;fi¥f£J3E / > b 

7Xb7*77>SHML, 640 b" -7 b X 

4007 4 >, fii44,050* ’7 4,W"J](: mix 

b, «tfflM*IEX4 -7^c iot, ^54? 
©fiH4$*igIE4#ffl<:St:£t'& 4„ 

+ — 7°(^) 302874(3)1131 


I4M^J "7 — 



7'J>SA''777 

PB-91H/95Hflro 

7-L/i7T.-rAX 

r'— 5? -f 5 !/ X b 7°!) > 4? * f E(l^ L X t> 
5 fifi©# G IIS] lilt/ j' t # x. /j J. t©* 
4 Ac, ^A.4ia*4r»'3lL-C < (Ufi 

4(il§©7°!) > b '•=' 7 7 7 2 Mi. 6 7 4 7° 
2> f f u -> x f a x"*> G ?§5c$ A/j„ 
-t'0?6tc©PB- 91H/95H li, 

•t 7 b o — 7 X ffiil©7° !)75t475t7i. 
4 X^fig4’^'7MZ-80B/2000/2200/1500/ 
5500/6500, X 1 ^ ') —XX'Vi&mtfXb, 
fgf^c^y 3 7^tZ!) 7 4? t©KC« 
iti/j'Ot', 7°!) 

b^'°y 7 7©figffl*fnTfigt 4 5„ 
pb-9ih 7 y -xiiry > 77 - 7 '*, 
AC74?'7 , 4?* s SiJ^4©C*tL, PB-95H7 
y — X'lilSiSRH, 4r-7*7w#^-C', SG 
i: 5 a»^-4f**^«(|g t y -t 7 b x 4 
7 ?? L X t' 4 o 

1) PB-91H^y-x" 

PB-91H-64(64K/-?4 bS) 21.800F] 
PB-91H-128(128K'M bS) 27.800PJ 
PB-9lH-256(256K^f4 b55) 36.800F] 

7°y >7 7— 7';uPB-90H-PC 4.000FI 
AC 7 4?"7°4?PB-90H-AC 2.000F1 

2) PB-95H •> y —XT 
PB-95H-256(256K^^4 bS) 49,800P1 
PB-95H-512(512K^'4 bS) 69.800R 
PB-95H-1M(1M'*'4 bS) 99.800H 

ffi)tv-2XfAX' 306(631)0925 

FB-OlSfg^ 

Sa£, Ij&Ct/ft L /J MIDI at&C J; 6 , 
7C4-7 /Jo L *■ LfP'L , ©B : ilSli, cbto 

©^Wt'C'li:Cbto©^feL/)‘il , ,-ti-4i.' b © 
**(i t A E X , »7f- b ©jH#4 !t 7 /J «6 
C l£ i ©-'>”— b »4)-©#i®, nib gc+74 
R#©^iKSr'£«Wfc L7i'/Jo 
^A4ttiH©4*‘, D-axb-fHi: 
sffei xmtifi-® f>t:t©fH ffi 
7Xr a, K ^'ix-7- 

7 “FB-01” * f 48,900FI t t' 7 f«flK'?g5£ 


i55 








su.4 o 

C0FB-O1IA, r'7'* ^^©MIDIttS 
M/XrAt', MIDI#^5f-gftt 5 C t 
t: i y&W1-J4*,MIDIiS}-T-£fifx'C$ 
St^f, 4 t X. li'Xi 7 V - X'4{? 
**BTSgr'* Jo 44*L, Xl <:fttt1-ft4ftd> 

■T, £ 4 X***** t 4 o f < 

Jo 

#iRli-V-?^'aic?)FM#JC, 5§^SIi 
8 ^ 4- * s f, la]#i: 8 #& i tThM c, t c t * s 
■fit, CO l &-t'8''°- F it'07 7-fr7 
7>St#$rfr ? C t* s f it Jo 
FB-O10£4tt«lli<*C0 t if *) o 
•#«:FM*if. (4 *, 8 7/ya" 

!l XX) 

• IBI#9fiflrtf ft : ft* 8 # 



7X/\FM-tt7 7 F7x*-U-7FB-0I 


•|S3#56tf<ffeft:*:*:8tffe 

• rtSM^y :240^£ROM(I£**l#R) 
98-tfeRAM(S;MnrHl), 4 3>r"4 7 a 
7R0M (M&ih LWffl), 16a 7r"4 7 
3 VRAM(^H^) 

. x 4 7 f- : -t— F‘tv?l-X5, 

s^iS-t w 7 F x 1 , r"— 7-x 7 F y X l 

• x'' 4 X7V4 : LCDieS!'^ ('Cy 7 7 4 
Ftt*) 

•teiffiiSHp: t-x"4 *fflft(L,R), MIDI 
(IN, OUT, THRU) 

B**£Rj&(lfc) 3(053962)3125 

•INFORMATION 

tj'4'Haatc 

^i3in#0^rj«E 

jf£*»lW3£p/rli, ~ 0#il!ii£^f; 2 HI 
J''7—J 
4*4, #S- fcjftcttffll-fc>*-*£$ 
L, £S0'M*1 *f-£*>^it5tfc3¥££-t' 
t L 4, ftl3@#0tp1$£ 4 n 


i a *■ t, 4 0 i -r© 3 5£ 4 h 0 ii mxmvc 

t Jo 

^Eli, £ 

^ i: £ #4 t> © £ -T'' u—f i ■ 'B. %> H)Hi t 
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☆ C&XNO. A-50 
"S-TlWfflMC: A9-7 "J T 

sharp CZ-856C ¥178.000 

SHARP GZ-855D ¥119.800 

s»ray«tt ¥2Zhmr 

®¥4,000 x 48I°IC'T:-^-^) ¥ 15,000 X 8E] 
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1 ¥5,000x240 (tf —:FXJ ¥ 19,000X40 
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1 ¥5,OOOx 360(tf-7-X] ¥ 22,000x60 
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MZ-l500(7'f*y7T f -f^7rti8O . ¥ 89,800*^ 28,000 

.V 89,800*^ 38,000 

MZ-2000(^J->f^yK-T-^U=l-7'rtl).¥218,000* ¥ 32,000 

MZ-2000(GRAM n U2,3^-^rt»).¥ 265,000* ¥ 46,000 

MZ-2200*MZ-1T02(f.¥ 147,800* 38,000 

X-KCZSOOC.GRAMlt.v-T^y) . ¥ 187,000*^ 48,000 

X-IC(CZ80IC).¥119,800*^ 42,000 

X-1 D(CZ802C).¥ 198,000* 48,000 

X- ICs(CZ803C).¥ I 19,800* 48,000 

X-ICk(CZ804C).¥139,000*¥ 52,000 

MZ-354I(I28KBRAM ^FD2K7<7rt»)[|lra a o(5]^ •••• ¥ 410,000* ^ 58,000 

MZ-5521(l 6 /FD2 C K^7'rt* RAM ). V 388,000* ¥ 98,000 

*X1S/U-X^SS±S=I-^-* 

X-1F^7U|.¥ 89,800* ¥ 58,000 

X-IF/l0-tZ'yh(^ + CZ80ID-TVTWW)[#±p a n ;--- ¥ 189,600* ¥ 107,000 

X-IF^Ex;U20(*?R0M-5OfFD l*rt*)f*lS|-- ¥ 139,800* 95,000 

X-1 F/20-b*yh( * v % + ^ 8 ° 1°*.¥ 239,600* ¥1 44,000 

X-l^-^/20(*?ROM-5<>fFD l*rt*)[fEE5}.¥ 248,000*^ 98,000 

X-1 ?— */20*vH*fJt&j .¥ 377,800* ¥1 76,000 


X-1»-#/30 lt5Eg] .¥ 287,800* ¥ 120,000 

(CZ85IC + CZ5I FiI?ROM5<>^FD2£F*g/fc) 

X-1 ?-*/30-tZ'y h m±&\ .¥ 417,600* ¥ 198,000 

(CZ85IC + CZ5IF + CZ850D • TVtw 77^-0 

T=-rx-7U-r 

l2MI5B(l2-f>^ x 2000^^U->) . ¥ 29,800*^ 12,000 

I2M3I2C(I20T l >2000^*7-) . ¥ 89,800* ¥ 18,000 

I4M 1410(140^2000^*7-) . ¥ 69,800* 18,000 

I4M522C(14i'>7 L N 4050^^7—).¥ 99,800*^ 52,000 

*^JS®±DPI=1—* 

MD-I2PI (!2'f>f\40503# ri J—>) ltr&EHi1 .¥ 39,800* 28,000 

CU-14FI (14<W- t 2000^^7-)lgfp n p|5ltill-• ¥ 64,800*^ 22,000 
CU-I4A2(14Qf->4050^7ta^7-) l»raa«] • • • ¥ 99,800*^ 59,800 
CZ-801D(14*07%2000^RGBTV) [WJEa] •■■•¥ 99,800*^ 49,000 
CZ-850D(l5<>f- x 4050^RGBTV)[ ^Ea] --¥ 129,800* 78,000 

CZ-80PK(ill^7 o ';>^).¥ 123,800* ¥ 48,000 

CZ-800P(K7h7M>?) .¥ 142,800* ¥ 38,000 

MZ-IP06(;i^7 o, 7>^) .¥ 234,000* ¥ 75,000 

MZ-80BP5(K7h7°'J>^I/F-^-7'M^)----¥ 168,000* 38,000 
MZ-80BP6(K*yhy;>^I/F-^-7>#)-*¥ 198,000* ^ 48,000 
mz- ipogl^- 5 ,? 0 ^^^" 70 '^-) rpalTO .¥ 47,600*^K 25,000 


(*tt + CZ850D-TVT-V77‘K) 




★«isi*riBSHroD,Bnsi£££&iv^ 


A V =1 >£HIS 1 bl® 0 

003 ( 797)1221 

ZUCjtS/UD 

t 150 ^SiB^S(x / «S2-10-14 7JU7PWU8F 
^KR«/AM9:30~PM10:(J0 



7bi>'*y S'C'OK 

±B8Sj|eMSBi2l 


SBBIBjSrI ^(DZiWct’gibrto 



M8IMIXD sisi$rBPJi#J3$jAiv 

sai^oKo 


7|\—fiS&U i§SBBIW3¥7tA, MJyK-t^RC„ 











































































































«J&P 






_ 



IWaw 


IS/>7il/rffilWlWKV3>5-J/<7-TX^ 


2/>D-®5SR-60P 
qJ$/t\-K©8B3C£ l 0 
tVXTWSW V>913 
£ffilA75l/\3l,\3 o 
£Tte®Ria»B5'yC7Wo 
•*^Tr^:«600x*S855~1185x«t3655% 


i ivjiyvvx 




a*v =\y 
yy^u^o 

2 ryn-nm SR-1100 

¥29,800 

• »*^>£:«11(X)xB<*865 
x® fir750% 


mms 



* 

f L 

• T ? 


T 5/^PA-300 
OAJl*8£ i\3i\3S8g* 

□^73^jq_'I 0 fq]2*l<I3f£^.0>n^3'< 

¥6,800 ¥9,800 


^C7tzJL/NF112 

¥5,500 


TV3W ^£-(14-0^83) 
^L>£7yJI/^-NEW14 

¥9,600 


f±$CD^P'v7 

AVU^-TS 

NECPL-2101 

¥16,800 


jKy^yyu-i— 

^^-^EC-IIOH 

¥ 10,000 



PK=)Z_>AMC-50 

¥3.800 

5Y>^ 50&M 


AVU^'J-iF- 

^□'ve-r'.TV^TW 

£?cum 


pkd^afc- 20 ©¥4 j 3005-r>5 1 

¥4,500 ©¥5,0003.50? 

3.5-0? 20Kffi» ’ 


isstDgg 



A‘V=l>tJ)gf§ 

MVD>1 7u>5 , 
/WDV2 ^ 

KSW C 

2a®/ WD>nS®7'J 


AVD2/1- 

N /9—I 






¥9,800 


RS232CtD^gg 

av 5S/2- 1 " £SSS iTXT-i-iuj-^^i 

8tr>RGBxC7U->Ml^f KSWM _ 

¥12 , 800 caa 


¥9,800 


3:3-0 



1013 

MTAIXMIM 


y-ynmmmm 

aw®±n» 

A4tH / X 200&X5TO 

¥4,900 



500^(6000^:-^) 

¥12,000 


io-r>*i.oootta« 

©a« 

©«A«0 


¥3.000 


□ > d a-S’-© AP^IC e •:/ 5 0 o 


/K^n> 


awsce^u/ 



ttQKH 

WGDGHDI 

Sfiii 


/U9-K-7T- 
h/ V7-X7- PC-1246 

t2-7'gm^m ¥5,980 



24tfi x 4fj® r 7-f'K 
^oRAMXJ-KC 

SHSStf-CSS?o ¥23,800 


^^'vfrw 
R**fcl/Cfc 

PC-1450 

R7IWCE/ ¥19,800 




SBRS-^S/* 

m®?-?ny pa-500 

ommmm ¥13,800 





PC 1440 

CAP-XS* 

¥15,800 




ram card 8 



□ 

RAM CARD 16 

1 - •• /’irtf?.. 



CE-124 
¥4,000 

PC-1245-135083 

Xj-tz'Vh'O'9-^xi'^ 


CE-201M 
¥8,000 

PC-1350 • 1450 • 250083 
8KB*tU 


CE-202M 

¥16,000 

PC-1350 * 1450 * 2500^ 
16KB*tU 


CE-126P 
¥15,800 

PC-1245-135083 

+>—?Ji/7 , u>? 



CE- 127 R mm 

¥17,800 li “ u 

rtyuym 
7YC7DZrt2'Vh 10-4 


CE-140P 

¥36,800 

PC-1350-145083 
fl^-K'VhT’U >9 


CE-130T IBEBEH CE-125S IBEBEEI 

¥15,800 ¥24,800 “““ 

PC-1350 • 1450 • 250083 PC-1245-126183 

RS-232CL/^HU>/ V-5? HOU\s , n-4tt7'jy? 


US , *75-f J&P KBSST 


iSfftA 


1 


■/KV3>aiiM 

txA/lvV 


**UTj. 


y s . *7Ix*y A 


tfSCD'C 



|XM_2(XW ®®? 300-1200/K—0 

MZ-1X19 J&£5?2? 


„ _entrst sb 

¥98,000 a«Btg 


2/l*-:7MZ 1X22 
300 t!\— 

¥21,800 


tfA 

300-1200^-12)8^ 





sest^ig^ A 

LED^tjn 

{ 

sm 



PV-2123 


¥28,500 

W-7VWtf) 



SBa^RO 

mi7S£trc 

OKo 


MZ-1X11 

¥44,800 


FIS-232C*-?Jb 



mnnm 

C343-A 

¥38,000 


i\yiz-< 

1-232 

¥4,500 


-j 

RS-232C'fV-S'-7x-r^ 

Ea 1 AVU>iSflV^K 

■MEB 1.1.1 

hwrm| 

©X-12/U-X 

HIh yv—y 

CZ-131SF 

CZ-8RSc^-7^) ¥29,800 

X-15 7 —Ttsffl 

©MZ-1500/7002/U-7C 

¥8,800 

MZ-8BI03 ¥50,000 























































































Personal Computer Store 


s 


IS 


MtMX&Zmtis 2 T 028# 4 ^(r150) 

0 ( 03 ) 496-4148 


awnfeiottutfiicttoraosjw 



5"2D 

5PDD 

5"PHD 

3.51 DD 

3.5’2D 

3.5 PD D 

M4-157 

7 a’"j7 
XV 77 

yv-y 

MZ-6F03 

¥4,500 

J S p 

¥3,500 

— 

— 

— 

— 

— 

v <7 t ;i/ 

¥4,300 

¥5,700 

¥7,500 

¥ 9,000 

¥ 9,000 

¥12,000 

3 M 

¥4,300 

¥6,000 

¥8,000 

¥ 9,900 

¥ 9,900 

¥12,500 


¥4,100 

¥5,700 

¥7,500 

¥ 9,200 

¥ 9,200 

¥10,300 


¥4,000 

¥4,800 

¥7,000 

¥ 7,800 

¥ 7,800 

¥ 9,800 

7 y 

¥4,000 

¥6,300 

¥8,000 

¥ 9,900 

¥ 9,900 

¥13,000 

v - - 

¥4,200 

¥5,900 

¥7,800 

¥10,500 

¥10,500 

¥13,500 


i <m z -85007r yi/3» eebu 



MZ-1E2I _ 

¥24,800- 


MZ-1M10 

¥14,500 

ft?-! ^U'Vh 
tK-K 



¥ 10,000 

.... ’ . no MZ-1X10 

MZ-1M08 viq 

MZ-2500/1500B3 ¥ 19,800 

tK-t'^tTs-K 777 


MZ-6Z001 

¥16,800 

/1-V^LOP/M 


RM-25A 1 

¥13,100 

MZ-2500S3 
RAM 7-K 


I 


RM-25A-2 

¥ 12,100 

MZ-2500S3 

ig§8:RAM;0- 



RM-25EC640KB) 

¥49.800 



RM X1EC51CKB) 

¥49,800 


i<x-i7r»a>-rutr> 



2/^-7*CZ-8BV1 

¥39,800 




5/^-7CZ-8BK2 

X-1F*1d(MI3SR0M ¥19,800 

• CZ-8BK3 

x-i?- 7frafg2ft*ag?ROM ¥13,800 

• cz 8BK4 

X 17-/KE 3§2zK*3I^rom ¥6,800 

• MMBnil 7-V-7CZ-8DT2 

m-v^ xD^m- ¥44,800 

• EEBfl 5/17-7CZ-8VP1 

trT^^l^TD-b'vit ¥59,800 


IX-12/U-X7r^2/a> 




X-1F«i9:K^-t / 7’ 

CZ-52F 

¥34,800 


X-17-TKiil&K7-i'7 

CZ-51F 

¥39,800 




" 'wmtMW 




MZ-X-12/U-783 

#7-3t?7U>7 

MZ-1P17 


5^-7CZ-8PK4 
24K'Vh80^3l?7 
U>7 C7-7)Wtf) 

¥158,000 


y-ymm 

¥79,800 



CZ-8RL1 

¥24,800 


^3'f'^TY'VC? 

X-1E PASOKO-IOOO 

¥9,800 


77*- 
X-lffl 

¥8,800 


I MZ-1R29 
1 MZ-1P17E 
^27K^'JI?ROM 


¥32,000 


IX-1 

NEW BASIC(Ver.S.O) 


IX-l^-TKfflS/XxZxV 7 K 

(7 >y-vv >J - Xli, 7 >f-y 7^ CZ-5CP/M#<#£ TT) 


ftfSflftil 

CZ-800C •/jt'VhliS 
CZ-801C 

CZ-802C • 3’FDIK 
CZ-803C 

CZ-804C • 5 FDJ& 


CZ-112SF 

CZ-113SF 

CF-124SF 


¥7,800 

¥8,800 

¥8,800 


v7fAa-f-^t 

CZ-11 ISF(2D*5'FDj&) 

8,800R 


CZ-I I4SF(2D*5’FDKS) 

I7,800R 

turbo LOGO(iH^KS) 

CZ-I I7SF(2D*5’FDKS) 

I8,800R 

7>y-v7*?-(CP/M®) 

CZ-128SF(2D * 5' FDKS) 

9,800R 


FORTRAN 

CZ-I I5LF(2D-5'FDKS) 

I3,800R 

C 

CZ-I 16LF(2D*5’FDKS) 

I3,800R 

COBOL 

CZ-118LF(2D • 5’ FDKjji) 

I3,800R 

PROLOG 

CZ-I I9LF(2D-5’FD)£) 

I3,800R 

LISP 

CZ-120LF(2D*5” FDjJfiO 

I3,800R 

FORTH 

CZ-121 LF(2D • 5’ FDKS) 

I3,800R 


atpi/aawsa 


soajtBccrmaaSadiaxNo 
a<*u^s¥iic:s2A0DJi. st 
»®ct ISBSTStb 
si£©si«. nm 

UEL/3f „ 

sa> ss»i§i^9t-r^uasn 


4rUh'J« 1 


► 


>is«£Wgd v&soyc, & 
u<i^«isizr33f?sii\^iDt±T^UNo 




TEL 


35& ^ A 


aXNQ 

& s 

& n 

( ) 


ra 

C ) 


ra 

C ) 


ra 

( ) 


pg 

& it 


P3 


: ^a5^SE3a^®2Te28S4S(Tl50)dJ&P^S)B>.-;b2/3'Vfc^><7^ 


















































































































V7H1«E» 



2s»«t»rg-<c suttususa, 

«3&p)>Hli/3 # ; 


IX-l$/'J-X5.M>*T'fX7liS 

X*-L/->h7 


7UT77 \M*- 



& X No 

M4-1 

a © m m 

X-1/F/T 

VXH\OX 

V7K7D 


;WIW®/!-W 

saegsuriu*. ate 


¥5,800 



mm* —f6»a 


a x nq 

M4-2 

a ® « m 

X-1/F/T 

V37h/\0* 

1179^ 


¥5^00 


«8fflSFO-)l/7l/-OW-ij. 
'Jj'JWl'i.SJMXOT-JI/TW 
a-IWL-XM-Li KM. ftt 
8- SWt, #BtEXe?'>7CS 
BMfflWH/529-. 



a x nq 

M4-3 

a is « m 

X-1/F/T 

V7h/\OT. 

ts-XryO 


¥ 6,200 


•7^7-r'VC7BUP^C3 
X^fflSo 3.?-~/l34fe 
•7S/3>. ^KS+tO^H 
C©-3rgB5-3©?x'y 
^/It-OSSrarfcaa, 


9 Y h Jl/ 

7WP-C7U;X5>JU 

mxw (»RIH0 

/\YK9YK 

*y07z>"J*l- 

Utf-h 

T'tfX-C-iUK 

7tF9(K5X/Xl/YT-2) 

hUh-> 

a®si 

X 1 F T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

V7h/\OX. 

B-P-S 

SPS 

T&EV7K 

dB79h 

?UX.5>JUV7h 

/\KV> 

B*7^Jl/DA 

tf-r>v7h 

ffi ft 

¥7.800(12/M) 

¥6.500 

¥6.800 

¥6.800 

¥6.800 

¥6.800 

¥7.800 

¥6.800 

& X Nq 

M4-4 

M4-5 

M4-6 

M4-7 

M4-8 

M4-9 

M4-10 

M4-11 

9 ■< S 11/ 

7DZ>x'^j3+)[sm 

y-77— 


^3'y7U?5>- 

□— 


yijy*- 

XyyOXZA-X 

iSina 

X-1 Turbo Hffl 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

XI/ FI T 

X-1/F/T 

X-1/F/T 

V?h/V7* 

yv7j>-)b 

7.20x;P 

S/XxA+tDA 

V?h7D 

V7K7D 

dBV7h 


BPS 

® *8 

¥6.800 

¥6.800 

¥7.900 

¥5.800 

¥5.800 

¥6.800 

¥6.800 

¥7.800 

£ X Nq 

M4-12 

M4-13 

M4-14 

M4-15 

M4-16 

M4-17 

M4-18 

M4-19 

Ml/ 

-p^XOy^y- 

X^-CHWX 

J\l\y-y7^^ h 


E^f©rZ9 

i?i*2 


en®^ 

a is ffi a 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1 turbo 

X-1/F/T 

XI Turbo^ffl 

V7h/\OT. 

/\KV> 

/\KV> 

/\KV> 

/\KV> 

/\KV> 

/\KV> 

=?y9U\07 

/\KV> 

flfi ft 

¥6.800 

¥6.800 

¥6.800 

¥6.800 

¥6.800 

¥6.800 

¥6.800 

¥6.800 

& X No 

M4-20 

M4-21 

M4-22 

M4-23 

M4-24 

M4-25 

M4-26 

M4-27 

9 Y S Jb 

79DX7377h707 

o-rtr-KU- 

^>W>7DW X^Jb 

TOKYO t>MXMJ-h 

£#3RSH83g|*3 

/Tn'VSK'^ 

-?7=f7l 

tf:>r/u93*©**R 

a ® « « 

X-1/F/T 

X-1/F/T 

X-1/PC-88 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1 turbo nm 

X-1/F/T 

V^hMOX 

%-73‘VO 

?x*- 

?-fY70*')/h 

'J'07\XX'VC7X. 

/J'SAXX'V^T. 



7-oyyy h 

ffi ft 

¥6.500 

¥9.800 

¥6.800 

¥6.400 

¥5.800 

¥6.800 

¥7.200 

¥6.900 

3 ^ Nq 

M4-28 

M4-29 

M4-30 

M4-31 

M4-32 

M4-33 

M4-34 

M4-35 




■X-12/'J-Xt-7IS 


fiCrfSfyjnLxas"* 



¥4,800 


>X X No 

M4-36 

a j© « ti 

X-1/F/T 

V7h/\OX. 

V-r?D*'Vh 


6A©«»e>L/7.5-«a 
yj»«r7tf«*©3 / OB 
7'V?XXyi\- / 3 

ypa, ivx-rwo// 







¥4,800 



2E X Nq 

m m m m 

M4-37 

X-1/F/T 


V7H\OX 

tK-T.x'79 


«fi«S©X5D-iis t 
—7JU IPUPJl/^ 7, 
tr~KJR»^CD=^7u5aS 

m 


7U v*- 



£ X nq 

M4-38 

asm* 

X-1/F/T 

V37h/\97. 



SEGAPSu-X^h 
?-L±(D®m®Lo n<tm 

[szeBes&mto&fcs 

Kjyj>y x 9V- h r-L>» 


9 Y K ib 



Z)UTKXD- 7K§1$ 

xC7+f- 

/\YK5YF 


'O^gWARS 

XtJ-yyh7 

a *5 « « 

X-1/F/1 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

V^h/\OX 

B-P-S 

B-P-S 

HOT-B 

700jlP 

TSEV^h 

dBV^F 


V7h7D 

ffi ft 

¥4.800 

¥5.800 

¥7.800 

¥5.800 

¥4.800 

¥4.500 

¥4.800 

¥3.800 

a X No 

M4-39 

M4-40 

M4-41 

M4-42 

M4-43 

M4-44 

M4-45 

M4-46 

5? -Y h- Jb 


tf-Dy7£yh 

MJI—> 

707x^2/3 mm 

y^pT-^yy 

7-^yy'jyy- 

□—— 


a s «i a 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

V7F/V7X. 

dBV7S 

□^/TWCI/O) 

+f*OV^h 


V7h^D 

V7h^D 

V7K7D 


ffi ft 

¥4.500 

¥4.800 

¥4.800 

¥4.800 

¥4.800 

¥4.800 

¥4.800 

¥4.500 

& X nq 

M4-47 

M4-48- 

M4-49 

M4-50 

M4-51 

M4-52 

M4-53 

M4-54 

9 Y S lb 


X^+t-Th/W^ 


ffi^©jZ9 



mwve — 

tfAKo 

a®«-« 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

V?h/\03. 

/\KV> 

/\KV> 

/\KV> 

/\KV> 

/\KV> 

□A/\^C7 

K-Xry? 


ffi ft 

¥4.800 

¥4.000 

¥4.000 

¥4.000 

¥4.000 

¥4.800 

¥4.200 

¥6.800 

a x no 

M4-55 

M4-56 

M4-57 

M4-58 

M4-59 

M2-60 

M4-61 

M4-62 

5 ? -r h )\j 


T’u-r^u-rzj- 

^7XJbX9tzl/7F 

TOKYO 



9i?U-X 

K^U>Xb-n7- 

a a «i a 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

X-1/F/T 

V7h/\OX. 

/T-X,^'7C7 

XX'7C7X. 

-P73r- 

'J'SaIZ79X 

/J'aAXX'V-77. 

d'ffiAxX'^-^T. 

^UThV^h 


® ft 

¥4.500 

¥3.800 

¥4.800 

¥4.800 

¥4.800 

¥4.800 

¥4.500 

¥4.800 

a X Nq 

M4-63 

M4-64 

M4-65 

M4-66 

M4-67 

M4-68 

M4-69 

M4-70 





























































































































<|&p a?. 


( 7CXP—CT3dA;£:1\ ") 


' V 3 

"<V 3 ^«fe* 

'<V 3 — A 


** 


OA«SS-fP1#|| 

• kfi>ifx^<yx/ #9—Kya-trvV 

: ” m ” 


* t : — <r> v a > 

•*Kw«ya> »?ut:v-A 



Personal Computer Store 


« 


IS 


IMZJ/'J-XfB 


1i b-fh*;u-7 



a X No 

M4-71 

fcjjnMfftlFTO RfflSSBTO^ 

GTJUBBff “■ "TBBBBBBBISEBTSJ 

i§iH 

MZ-2500 

r ---* 

r- -\ i 

V7hM77 

S/7t^7=)^ 

i<IU'eya?lk tTOS&K 
*)IAyHl/B, D^n-SW 
•OCiS^-'^-ll/KSCC 
SrfiKSttSl/E. JttSiOT 



£ X No 

M4-72 

a *® a & 

MZ-2500 

V7SM77 

7t\'^htl— 


3.5"DDK§ ¥7,900 


x-7K& ¥9*800 


SFDHt,7b-OW-^U 
-X£1 & *rll&D7Jl/»t 
U3ffia*»0AfL §001*9 
Wr^w-iffio&t'-wr 
«flrc& sbdfi*/ 



*a»:5«Eii*«2Ta28#4#(Tl60) 

a(03)496-4148 


a x nq 

M3-73 

a ® « % 

MZ-2000/2500 

V7SM77 

TBE 


x-7® ¥4,800 


IS. *H, ®*. SU 2K4>, 

03:?. T*>m&2>£&0 

-as&omMhi. 


7 -r h )i 

?t)9L> 

WW770W 

AJftjS 

^£*5 

7D7x':/5/a*;i/J## 

*-fc?yh3 

X^7-Th/W7 


a *© « * 

MZ-2500 

MZ-2200 2500 

MZ-2500 

MZ-1500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

V7KM07 

dBV7h 

7-T7D^'>h 


AKV7 

5/^7^-JU 

x77V7h 

MSV7 

/\KV7 

ffi IS 

¥6.800 (3.5‘DD) 

¥4.800(x-7) 

¥6.800(3.5‘DD) 

¥5.800 (QDKS) 

¥7.200 (3.5'DD) 

¥6.900 (3.5‘DD) 

¥6.800 (3.5‘DD) 

¥6.800(3.5'DD) 

a x no 

M4-74 

M4-75 

M4-76 

M4-77 

M4-78 

M4-79 

M4-80 

M4-81 

5? -f h ;u 

sjsesj-y— 

f§S©15S§ 


miaotm 

*7777'^- 

7'J'V^r- 

□—K773 — 

7^'yfcT- 

a e m m. 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2500 

MZ-2200 2500 

MZ-1500 

MZ-1500 

V7hM77 


ft* 

ft* 

7U75?;UV7h 

dBV7h 

7-T7D*7h 

ZL~I (-7 

d BV7K 

ffi IS 

¥9.800 (3.5‘DD) 

¥7.800 (3.5‘DD) 

¥8.800 (3.5‘DD) 

¥8.800 (3.5‘DD) 

¥6.800(3.5‘DDK&) 

¥4,800(7-7®) 

¥5.200(QD) 

¥4.800 (QD) 

£ X No 

M4-82 

M4-83 

M4-84 

M4-85 

M4-86 

M4-87 

M4-88 

M4-89 

5? -T h JU 

/WI/tf-K 

»«»« ISIJISA 

idrtf-i'hraA mm 

777-7A-7 

KJUP-tfCD® 

7^7©ffl©K7h5g 

7“ti?X77S 

ff^l0TZ7. 

a ft « a 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

MZ-1500 

V7hM77 

dBV7h 

V7K7D 

x77V7h 

x77V7h 

yLD 

ASV7 

MSV7 

/\KV> 

ffi IS 

¥4.800(QD) 

¥4.800 (QD) 

¥4.800 (QD) 

¥4.800(QD) 

¥4.800(QD) 

¥5.800 (QD) 

¥5.000 (QD) 

¥6.800(QD) 

& x no 

M4-90 

M4-91 

M4-92 

M4-93 

M4-94 

M4-95 

M4-96 

M4-97 

5» -T h Jl; 

F27577U 

*!&*£ 

75X75-0 

fc~7MJ P7A-Y7 

wys. 

h7772 

7UA777-X 

TE^bS 

a s «■ n 

MZ-2200 

MZ-2200 

MZ-2000/2200 

MZ-2200/X-1 

MZ-2000/2200 

MZ-2000/2200 

MZ-2200 

MZ-2000/2200 

V7h/\77 


^rVU—^7t\ 

x77V7h 

Xt*H 

AKV7 

ASV7 

MKV7 

/\KV7 

ffi IS 

¥3.800(t—7) 

¥4.200(7—7) 

¥4.800 (x-7) 

¥4.500 (x-7) 

¥4.000 (t—7) 

¥4.000(7—7) 

¥3.600 (7—7) 

¥4.000 (x-7) 

a X No 

M4-98 

M4-99 

M4-100 

M4-101 

M4-102 

M4-103 

M4-104 

M4-105 


&£nq 

as%^ 

S'-t'S)!/ 

V7K/N07 


fiS IS 

F*9 § 

M4-106 

X-1/^-/-n 

JET-X1 

^r-^U—^Tts 

5'2D 

¥35.800 

^xstz^-QJET^x-irtsfflrs^^o Asio 

M4-107 

X-15?-tK 

£7b73??IS 

OAv-y-y 

5'2D 

¥48.000 

tzibBJSHo #St 0 eB7D7^A<bffl^ : &jfEllo 

M4-108 

X-15>-tK 

r gD«^Dj 

yuyyooyF- 

5'2D 

¥55.000 

9996©$«am*«qI0gCUSffilN^^o 16fc^HZ£5«f|g£!!St / 

M4-109 

X-15^—7t\ 

Multiplan 

yv-y 

5'2D 

¥49.800 

16t'i/h«rU^^^^$©VJb5 : 75>tfX-15'-/K‘Cfr^^ 

M4-110 

X-157-tK 

ZL-A^POP 

ma^ux-rh 

5‘2D 

¥28.000 

7?©ffiA^ eoi7s 7S^m^H8mCXSxbt:x t‘T‘Ail®IZxDb7a^ ; &qiego 

M4-111 

x-i^-tk 

E^SMyCARD 

P/\D7 

5'2D 

¥58.000 


M4-112 

X-15?-/-K 

HuCALB?® 

/\KV7 

5‘2D 

¥45.000 

»JKi«iltllV7h. 255X10.001lr©A$«SlltfflJftr5F'-^©8JiEA7: ; &fgi¥o 

M4-113 

MZ-2500 

TURBO PASCAL 
(Ver3.0) 

MSA 

3.52DD 

¥29.800 

»^-®ffilS©Pascaa>/K^-^MZ-2500‘C : &X^JfflL\^^7^^ 

M4-114 

X-157-/-n 

Ink Pot(79XfSl) 

P7*~ 

5‘2D 

¥38.000 


M4-115 

X-15>-7K 

0®JXM 

t-U7 

5‘2D 

¥14.000 

24K'vK^U>571^51-‘C=&24K'>KE0^^5iaglZU3:g-o 1/4£u IBZTld-s ^WED^^-CS 

X««8t?»»CL3:g-. 

M4-116 

MZ-2500 

Z)5-ED»J^‘VK 

7-TA7x^ 

3'5D 

¥30.000 

^^-r'vC7^^eiz}SL\x6Di»j-c€fcsv 




stoiixacca&aiSscDjiXNo 
a<f;WS#i*C'SeACDJ:, it 
safer 

It§», *S2S 

ueusf. 

»a. s^ssuwcefiu&sn 
jeaeaJWffcftU'Zmsg - . 


^UhU« 1 


► 


► ssw^cdv^ KocraEX^o 35^- 

GDT\ 8¥U<&&«SSIZT&Po%\^;D 

tTF£l>. 


33^3 »□□□□□ 


TEL 


33£^x. 


a^NQ(?^S) 

& s 

3 lz H 

( ) 

$ 

P3 

( ) 

$ 

P3 

( ) 

$ 

ra 

8 it 

$ 

P3 


C ) 


: R9[IB*@Ea3S3^Te28S4SC s f150) 






























































































































► LODE RUNNER&*BRODER BUNDtt0>2»iS#TTo 



Lode Runner 



MZ-1500 QDJS 




5,200 


SUPER SOFT WARE LAB. 

fflUMBRSE 


T700 ISlUjmT+IfSig-l TEL(0862)44-1176 [^4>&'(*:]PM 1:00~PM7:00 
• ee? (wX-fc.l£^—/ ^ N 0 

EX) 


[jo'^n £>"ti*] 


u-Vy>-h-'CMtftZV;'), QDcMtftti'M* Z(DitKD 
#lH-rWiifiiT"-^(BB) t\ ii.mfr&M'X’bWi'yt: 
kCDfctbr.' j@| Hiy*—2 (Blfif) SrftsjsRI'iT'n 9‘?U i/>T 
■7->xQD) £■*&!>Ut„ fJrU'QDC=fc“-ltte?H«JS 

(i£ : A®c07°d^"^.M iA^TfcDi-ti'/vo) 



















'J'#»98 JWORD-2 JDRA 



■ster VJE 


i vrnt;V7h(7)x4-xy \°-k 

46. £h&Zt 

T'&fS M(Cfcm$IlCZ'*gfK£<* 
c 'o i£?£<o satjcc £o/c as o v 
7h£fcSia'£Lrt , 


r V7tzt<'mftiiz±frtt$to<r) 
»Ji;:«#3:43-xfcft3£i '/x 


Smtl 1285 


* 861 Rffii 

I m&i' 


Personal Computer Store 


^jl&IP 


* r l!=/«5>F 

1-1-3 *85*KBu$3t:JUB2 (t530) 


£3 tOu 
Mtl* 

w (06) 348 1881 


rmix Ha 


ti'v*7V7h7x--/Eh 

Kl< 


/J&Ptfv*X7>NU 

*RKW»3k^l4fcT2B[Tt. / 


blVU 


*1k!;u 


xoiut+u 


£52t:;u 


*3*UST/ 


0*^*(DV7h7<77U- 

li'fjlj 6t) ^ aa Ifi'l a*-5 ti VX 7 V H c 
&6*9>£l£*l<D&6^3£iT<7>V7h£ 

. Sf^|g 0 t;7*77>K?\ mtz(F)--X 

(c»aa)v7^aoit6n*to 

eg» ^ 


T^v^xAo 
iM# v 7h£ d'lS A<0 fefi. < ft J? 
r <ft 6 +S S ic c -£«IT\ tf> 
KT&V7KC0f$i'^f££.f<0 


^-^-77h(7)^^T 

/^-yV7R ? li^'l:<i 
*5oL?S:filcii. Zimmz^tc 
V7kor*l3g£. fc 4 *4 £ ? 

t£U£T- 


>2x5 *17 Srt?#L 'tctaiZ£T*x'y'7 
!'|j* T'S$r= 


SB c 




151+ • mm uu&&i rf+ > 

$T\ M°-V:ft'UCAD<Offli£U& 
RR?*o Ma/£<7)CADP-A-‘7te 
&6^SV7te/\-KvXxA£SX 
UffiixTVrfo 


ft*ff<077h*'6*#&tfi?<077h£T &60S--Xlim*£B*S*<OV7h7l77';- 

DYNAffl 


B^ii7-7P77h 

-»Xh->7.f-A 

r -±Mj 


•J\s-'>atJ\'7—$- / '-Z 
t-a>v7x2» 

r R: BASE 5000 j 


l )\s—i/a1")i'7 J —&— / <—7> 
V7P?i7 7 'f>$—ftvaftH' 

r dBASE ffij 


KSSSV7h 

V7h7a 


J+tfc#S+77h 
f—>-x- 

r+f-/\°v=i>#!+Ij 


B*l£W77h7-7P 

^-f^-717 7 


AWN! 


kMill 


IS***1V7H 
r *«t§j 


,w 

y' "^V t> 







































































ftm<r>+)-'?>mm0±mizitfritTm'ttTz? i J->mimkti!t?> 

^T-y7’?-tt-5RAM7T'r;K^7 , '>a»#fcL'<='< t Jt)0K,^'f^— 

'>3»*Sofc^<7)a*' l bin®X?)^fflV7l'0# 0 


<v^y 


**&**#*** 


,<v3*° 


IllZ-U 


id)® a 


89,800FI 


A^UcO 14Si*7-Wy KCU-14F 1B«iHfffi^64 ^OORIW-yva'xT'To •CRTii®(Jy N>=lS^fi!tT- r +> ; 7* j (©(W 
n-KvW—j (3.~s<-Zl r K7hTmkIIj (xz.y?7), r n.-^JJj (*S**'Jx-ra r 5a- 
y-y ^j (P-?7)/-*f->?-7*-7j (r^770«t‘Jo * n-K^Tt-liUSA Broderbund Software IncflgfifflRTT, 


• »rfEV7 hfcii@E -4r v.'«fcv.\=fc3E?g LX&tzQDT'ZfV 7—->a> 


77h'7+>JI/ 

7 7 h « ft 


7 7 M—* — 

77hvv>JU 

7 7 h £ ft 

«Mtt(R) 

7 7 h 7-2)- 

y - a 

7t>t’^»77 r 0-K77f—* 

5,000 

il - / \*—7. (nz^E^fS) Uj ) 

+f — lx 

/\7U—>7Wh 

6,800 

/\K7>!»« 

V 

T 

* 

O 

4,800 

v<7n+^t:'> 

JOY JOY PACK SPECIAL 

9,800 

SBC77h7x7 

K;u7-*'(7)il 

4,800 


fc* v*7 

H-^vJJ(MZ-1P17l|:ffl) 

12,800 


7'Q7 7- 

4,800 


NEW VIP 

12,800 

T ? -t*-77h 

vvv^^h'J- 

5,800 


¥ 9 


& 4,500 



5,800 



«■ 7,800 

SB2S 

5,800 

/'KV>IS56 


-S- 4,500 


O 


• -hK<7>77N*tiA<7>—«TT.»L«i*MZ APPLICATION NEWS*fc~K<££lV *n-F5>*—ttUSA Broderbund Software lnc0>8»»*T-r. 





rjfc. \ 

1 *&%\ 5#V->5ofSSn?l «±T545*KrfiW<SiflH;S;i!lfflT22#22-%n(06)621-122U*ft«)«fcRflL'-&^-B-(J-*ttrtHF i 9l#$g->XxAt*2t;gBST- o 

>Ai£k\ 


111 z 8 ®U 4 ^V 7 b y< >:?^Hr Printed in Japan /E!ffi 480 R £f£l£ 02179 — 4 


feZMMntHSB 2 HU*8S«gU &69Z8S£SW2?*«H'Si«»WPflBHU 5 

am aiiam#) immut *t9i»ai 

































